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ELEPHANT NEVER FORGETS. 



A full line of top-quality floppies, in virtually even' 5 'W and 8" model, for compatibility with virtually every computer on the market. 
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Todays 

most innovative 

educational software 

beoanliere 

GOTyears ago. 



At Scholastic, we have something 
no other educational software 
company has: 60 years' experience 
making learning fun for kids. 

We began in the schoolrooms of 
the 20' s with the first national 
news magazine written especially 
for young people, The Scholastic. 
Since then, our one magazine has 
grown into 37, and we've become 
the largest educational publisher 
of books and magazines in the 
English-speaking world. 

Now we've put everything we've 
learned fi-om five generations 
of school children into the most 
innovative family of educational 
software available today. Scholastic 
WizwareJ" 

Our experience makes Wizware 
different from all other educa- 
tional software. It turns learning 
subjects like geography, writing 
and spelling into exciting adven- 
tures for yovar children. And be- 
cause every Wizware game is 
interactive, kids become deeply 
involved in what they're learning. 

What's more, our experience 
has taught us the importance of 
teaching things most other educa- 
tional software leaves out. Like 
teamwork, imagination, critical 
thinking and problem solving. 
You'll find them all in Wizware. 

But by far the most important 
result of our experience is that 
your children wiU thoroughly ergoy 
learning with Wizware. 



There are now Wizware programs 
for teaching everything from crea- 
tive writing to computer program- 
ming. Here are a few of the ways 
we bring learning into the Com- 
puter Age. 

Spelldiver?'' 

It's the most ingenious way ever 
devised for teaching spelling and 
improving reading skills. Deep 
beneath the sea lie giant words 
covered by a strange seaweed 
called lettermoss. Kids must face 
ferocious sharks and pesky flipper- 
nippers to remove the lettermoss 
and decipher the words. 

Agent U.SA™ 

Agent U.S. A. turns geography into 
an exciting race to save the nation 
from the ruthless Rjzzbomb. Along 
with learning geography, children 
hone their problem-solving and 
reasoning abilities. 

Story Tree™ 

Story Tree can bring out the Mark 
Twain in every child. Budding 



authors create their own mystery 
and adventure stories. A remark- 
able feature lets them weave alter- 
nate choices into every turn of the 
plot, and challenges their imagina- 
tions to the maximum. 

Bannercatch™ 

Based on the classic game of 
Capture-the-Flag, this is the most 
sophisticated and fun strategy 
game for kids available today. Not 
only do players learn how to devise 
complex strategies, they also learn 
how to work together to solve 
difficult problems. 

Scholastic Wizware. Our experi- 
ence makes all the difference. 

Look for Wizware at your local 
computer store. Or contact Scho- 
lastic Inc., 730 Broadway New 
York, NY 10003, 212-505-3000. 

^^Scholastic 
Wipfifare 




Spelldiver, Agent U.SA. and Bannercatck designed and 
developed by Tom Snyder ProductioTis, Inc. Story Tree 
designed and developed by George Brackett. 
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Spelldiver, Agent U.S.A. and Banmrcatch available for 
AtaH 800/1200/XL. Commodore, Apple and IBM versions 
available soon. Story TYee available for Apple. 
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WOULD YOU SHELL OUT 
$1000 TO MATCH WITS 



WITH THIS? 



Meet your match. Meet Infocom games 
perhaps the best reason in software 
for owning a personal computer 

In fact, people have been known to 
purchase computers and disk drives 
solely for the purpose of playing our 
games. And they haven't been disap- 
pointed. Because Infocom 's prose stim- 
ulates your imagination to a degree 
nothing else in software approaches. 
Instead of putting funny little creatures 
on your screen, we put you inside our 
stories. And we confront you with start- 
lingly realistic environments alive with 
situations, personalities, and logical 
puzzles the Uke of which you won't find 
elsewhere. The secret? We've found the 
way to plug our prose right into your 
imagination, and catapult you into a 
whole new dimension. 

If you think such an extraordinary 
experience is worth having, you're 
not alone. Everything we've ever 
written-ZORK' I, II, and III, 
DEADLINE,™ STARCROSS;" 



SUSPENDEDr The wit- 
ness:' PLANETFALU," 
enchanter;" and INFIDEU- 
has become an instant best- 



seller. For the simple reason that Infocom 
offers you something as rare and valu- 
able as anything in software— real 
entertainment. 

At last, you can fritter away your eve- 
nings playing a computer game without 
feeling like you're frittering away your 
computer investment. 

Step up to Infocom. All words. No 
pictures. The secret reaches of your 
mind are beckoning. A whole new 
dimension is in there waiting for you. 

(For more information on Infocom 
games contact: Infocom, Inc., P.O. 
Box 855, Garden City, NY 11530.) 

inFocoiix 

The next dimension. 

For your: Apple II, Atari, Commodore 64, CP/M 8,- DEC Rainbow, DECRT-11, 
IBM, MS-DOS 2.0, NEC APC, NEC PC-8000, Osborne, TI Professional, 
Tl 99/4A. TRS-80 Model I, TRS-80 Model III. 
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This issue's stunning cover was the work of Gary Lippin- 
cott, a multi-talented artist who resides in Spencer, Massa- 
chusetts. When Gary breezed into our offices a few months 
ago with his portfolio, out tumbled some of the finest fantasy 
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Keep your eyes peeled for more of Gary's artwork on future 
covers of ANALOG Computing. 
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by Brian Moriarty 



As our superb cover by Gary Lippincott clearly 
shows, this month's issue is devoted to Adventure. 
We've selected new products from the biggest names 
in the adventure business (including Sierra On-Line, 
Adventure International, Infocom, Quality Software 
and others) and passed them to our reviewing staff 
for consideration. Many reviews that we hoped to 
include didn't fit, so look for the spillover in next 
month's issue. 

Virtually all commmercial Atari adventures re- 
quire at least 32K of memory to play. This slams the 
door of adventure smack in the face of several 
hundred thousand Atari users who only have 16K, 
including all owners of the 600XL system. This 
month's feature game is an attempt to give the 16K 
crowd a taste of what they're missing. Crash Dive! is 
a little too tricky to be called a beginner's game, and 
you need a system bigger than 16K to type in the 
BASIC version. But the boot-load version fits snugly 
in a 600XL; and though modesty prevents me from 
telling you how great and exciting it is, I think you'll 
find the effort of borrowing a bigger machine to type 
it in well worth it. 

We haven't forgotten the joystick crowd in this 
issue, either. Mark Comeau's Munch'In Climb'In 
uses colorful player/missile graphics and sound 
effects to send you on a hungry rampage across a 
network of girders and ladders. It's a very challenging 
game that proves once again how much you can do 
with Atari BASIC with a little ingenuity — and Tom 
Hudson's PMG routines! 

Speaking of Tom, don't miss this month's BASIC 
Training installment. Would-be game designers will 
find this discussion of graphics vectoring most 
enlightening. Part II of Clint Parker's Introduction 
To Action! features a high-speed plot routine that 
makes his kaleidoscope demo really zoom along. Dr. 
Griffin looks at a couple of interesting "simulated 
computer" programs in his Griffin's Lair educa- 
tional column, and Sally Forth sheds light on the use 
of arrays in her favorite language. You may notice 
that Joel Cluck's Our Game isn't listed on the con- 
tents page. No, he hasn't suffocated under a pile of 
mail! He's taken a short vacation from the rigors of 
Our Game, both the column and sorting through 



his correspondence, and will return next issue with 
Our Game. 

Fans of Tom Hudson's Boot Camp column get a 
special bonus this month. Besides his usual poking 
around in the 6502 registers, Tom presents an 
extremely powerful little utility for machine- 
language debugging. HBUG is just the ticket for 
MAC/65 owners who need a fast, painless way to 
find out why their "flawless" M/L masterpieces 
don't run. (I personally have little use for HBUG, 
since all of my program errors are caused by bugs in 
the hardware. Isn't that right, Tom?) 

Looking for another utility to add to your growing 
collection? Norman Hill submitted a nice program 
that keeps track of magazine articles for you. File'em 
is great when you need to reference a certain product 
review but can't remember where you saw it. Use it 
in conjunction with Issue 15's ANALOG Index 
and missing articles will become a thing of the past. 
You can even use File'em to organize articles from 
other magazines — but why bother? 

On a serious note. 

Last November, I was invited to appear as a guest 
speaker at the 2nd anniversary party of the Tulsa 
Regional Atari User's Group. TRACE is a very large 
and active organization, with an excellent newsletter 
and a devoted, enthusiastic membership. 

One of TRACE'S many special interest groups is 
devoted to helping the hundreds of handicapped 
people in the Tulsa area. While in Tulsa, I witnessed a 
demonstration of the inexpensive hardware and 
software they have developed to make it easier for 
the handicapped to communicate with the outside 
world. Their apparatus consists of a little rubber tube 
connected to a switchbox. By gently blowing or sip- 
ping on the tube, I was able to "type" words and 
messages on a TV screen. It sounds simple, and it is 
— but the value of TRACE'S Sip-And-Puff Com- 
municator to a severely handicapped person cannot 
be overestimated. 

We're delighted to be able to share TRACE'S 
invention with the rest of the Atari Community. 
Take a few minutes to read Michael Long's article on 
Communications for the Handicapped. It could 
make life a lot easier for a handicapped person in 
your area, perhaps even someone you know. D 




Precision Software Tools 
The Right Tools For The Right Job 

OSS, the leader in software tools for home computers, 
introduces a new line of application tools that you can use at home 
yet are versatile enough for the professional. 



The Write Tool™ 

Get all the power you need in a 
word processor, Compare our 
features. Compare our value. Buy 
The Write Tool at the right price. 
Use with cassettes or disks. On 
cartridge, $49.95. 






I 



OSS 



^^k Precision Software Tools 

1173D S. Saratoga/Sunnyvale Rd. 
San Jose, CA 951 29 • (408) 446-3099 



The Postal Tool™ 

Manage your list like never 
before. Add and change names 
easily. Prepare bulk mailings. 
Organize your lists. Select and sort 
by multiple categories. 

The Sort Tool™ 

Easily sort almost any file. 
Produce key files, tag files, or 
fully-sorted files. Sort lines, fixed- 
length records, or variable-length 
records. Try The Sort Tool, fast 
and efficient. 

Both The Postal Tool and The 
Sort Tool on disk only, $59.95. 



The Print Tool™ 

Give your current word 
processor professional features. 
Indexing. Outlines. Footnotes. Table 
of contents. 35mm slides. And 
much more. Make your documents 
appear their best. Use The Print 
Tool, On disk only, $59.95. 

See your dealer first. MC/VISA, 
C.O.D. accepted. 

All products available for 
computers made by Atari, Inc, 



The Write Tool, The Print Tool, The Postal Tool, 
The Sort Tool and OSS are tradeinarks of 
Optimized Systems Software, Inc 
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In reference to my program, 
BASIC Cassette Recovery, I 

would like to note that the instruc- 
tion to 'RUN' the program after 
typing it in and saving it was miss- 
ing from the article. 

Another problem has arisen, 
which I was not aware of. Although 
the program seems to run without 
error here on my machine, and 
several others (Thanks for call- 
ing. . .), there are machines that 
it won't run properly on. I am, 
frankly, at a loss to explain this. 
As a result, I plan to write a more 
comprehensive program to do the 
same thing, which should solve 
the problem. In the mean time, 
when the program asks you to 
press return, press SYSTEM 
RESET instead. 

The question has arisen about 
the possibility of recovering a boot- 
able cassette program. I would 
like to let your readers know that 
it isn't possible to recover these 
programs because there is no way 
of knowing what the program did 
(from the point of view of a re- 
covery program). The problem is 
akin to reconstructing a house 
from a foundation and no plans. 
You can get close, but close doesn't 
count in a machine language 
program. 

In closing, I'd just like to say, 
"Keep up the good work" with an 
excellent magazine. 

Bob Fine 

Tomkins Cove, NY 

Action! Update 

Thank you for your very nice 
review of Action! in Issue 16, but 
I would like to clear up a couple of 
details. First, just to make sure 
your readers aren't misled; I do 
not work for OSS. 



Secondly, a few comments about 
listing number seven. Although I 
feel it is fair to code it the way you 
did, I feel your readers are missing 
out on some of the power of Ac- 
tion! by doing such a straightfor- 
ward translation from the BASIC 
version. If you declare SCREEN 
as a BYTE ARRAY: 

BYTE ORRAV SCREEN 
and replace the 

POKE CSCREEN+J,255l 
with: 

SCREEN C J) =255 

you will not only get a cleaner 
looking program, but one that runs 
faster (21 jiffies, 34% faster). Since 
Action! supports 16 bit numbers, 
you could declare SAVMSC as a 
CARDinal and replace: 
SCREEN=SAUHSCL+256«SAVI1SCH 

with: 

SCREEN=SAUHSC 

Now, this doesn't have much im- 
pact on the timing of this program, 
but it would on any program that 
does a large number of 16 bit ref- 
erences. 
Clinton Parker 
Action! Computer Services 

Software Piracy 

I am sitting here re-reading 
Greg Walforf's letter in Issue 13 
and Alex Leaven's reply in Issue 
15, on the matter of Piracy. Un- 
fortunately, in my opinion, too 
much has been left unsaid . . . 

Re G.W.'s letter; It must be the 
umpteenth time I've read this par- 
ticular justification of piracy. It's 
become a litany. One wonders 
just how much guilt these people 
must carry, that they feel conti- 
ually constrained to write let- 
ters excusing their thievery and to 
assuage their burdened con- 
sciences. 



Me? Unfortunately, like A.L., I 
sit on the other side of the fence, 
developing software for free. 
That's how it sometimes appears 
as I rip open an envelope bearing a 
royalty payment only to find a 
check perhaps one-fifth what it 
rightfully should be. Forget for 
the moment fellows like Budge &. 
Wetmore, the deservedly well- 
paid Superstars who don't have to 
worry about mundane things like 
putting food on the table and 
buying shoes for an active four 
year old child. For the vast 
majority, professional program- 
ming is a very tough career, 
replete with growing pains, slow 
progress, long and brutally hard 
hours and the tantalizing dream of 
success. 

The success does not come 
overnight. . . 

Dan Gorlin spent the better 
part of one year developing a bril- 
liant graphical tour-de-force that 
also happens to be an eminently 
playable game. The effort that 
went into this masterpiece defies 
tenacity and is a touch more than 
genius. D.G. owns Choplifter, 
having paid for it with a commen- 
surate share of labor and sweat. I, 
for one, pay tribute by paying to 
play. 

But what of the characters of 
G.W.'s ilk? Far be it from them to 
pay for something more easily ob- 
tained. So be it. . .the pirate says 
to hell with Broderbund &. 
Gorlin; they're making too much 
anyway. Broderbund, having 
spent a sizeable sum on develop- 
ment and promotion with no 
guarantees, does not agree! Gorlin, 
while being a generous sort, is not 
indisposed to being paid for his 
labors. 

G.W. also suggests a lower 
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program pricepoint would eradi- 
cate the impetus to pirate. Well, 
how then will Greg justify his 
purchase of the Happy Enhance- 
ment? Will it become a paper- 
weight? The warped logic of so- 
what-it's-only-one-copy is 
absolutely blind to the truth. In 
reality, when the average pirate 
makes a copy for two friends, and 
so on and so on, eventually 
hundreds of illegal copies may be 
in circulation. This is the crux of 
the matter. Of course, one copy 
makes little difference. In 
practice, however, the "one" 
copy is eventually multiplied by 
thousands, and the final effect is 
patently clear. Witness the fact 
that most of Atari's releases in 
early 1983 were available on 
illegal Bulletin Boards before Atari 
actually published them. I, 
myself, had the distinct 
displeasure of seeing one of my 
own games being demonstrated in 
a local store by a neighborhood 
pirate before the game was 
actually released by Adventure 
International! Is there any doubt 
that A.I. and I received less than 
what we were entitled to? 

Please, please, no more letters 
justifying piracy. I and no one else 
can prevent the onslaught of the 
rationalizations that permit piracy 
to continue. We are, indeed, 
talking about theft, reprehensible 
and damaging to the developers of 
the software. Most of us are 
merely human beings (Budge is 
probably an E.T.) fighting to 
survive in a rapidly changing 
environment, hopefully to 
prosper. It ain't easy. If you need 
any further proof of your folly, 
just look at the market for Atari 
software. It has changed radically. 
Far fewer products are being 
released as publishers realize that 
perhaps anywhere from 3 to 10 
illegal copies are being made for 
each copy legally sold. Many 
stores and distributors are now 
cutting back to a large extent on 
Atari software, due in part to the 
effect piracy has had on sales. 

We are at a crossroads. Make 



no mistake, the future of the Atari 
as a serious development tool may 
be at stake. If you feel you must 
have the program, pay for it. Any 
alternative is non compos mentis. 

Alan M. Newman 

Brooklyn, NY 

Create -A- Font 

First, I would like to take this 
opportunity to thank you for pub- 
lishing the most valuable and in- 
formative magazine available to the 
serious Atari owner. I have learned 
more about programming from 
your articles than from all the 
books I've read combined (and 
that's quite a stack). My special 
thanks to Tom Hudson, for well 
documented source code listings 
that are easily modified and ex- 
panded. Keep up the good work! 

The Create-A-Font program 
which appeared in last issue was 
by far the most creatively designed 
BASIC utility program I've ever 
seen. It is such a pleasure to use 
that what was once a chore is now 
almost like playing a game. One 
thing about the program did dis- 
turb me, however. When modify- 
ing the alphabetic characters, the 
menu portion of the screen would 
eventually become unreadable. I 
decided to insert a display list in- 
terrupt in the program to switch 
character sets in the lower part of 
the screen. Now, the menu is al- 
ways perfectly readable, even if all 
the characters are modified. Add 
the following lines of code: 

45 DIN DLI$ (12} : RESTORE 28 

89: FOR X=l TO 12: READ N:DL 

1$ CX) =CHR$ (HI : NEXT X : RESTO 

RE 

lie CHBAS=XWC256:A=U5RCADR 

CCLEAR$) , PI1-C256*C2 , C256»C 

41:P0KE 705,148:POKE 718, C 

8:P0KE 712,148 

155 G05UB 2888 

182 POKE 54286,192 

2888 IF PEEK(I>L-C8)<>2 THE 

N 2878 

2818 POKE 1791, X 

2828 POKE DL-C8,PEEKCDL-C8 

)+128 

2838 ADL=ADRCDLI$) 

2848 POKE 513.INT(ADL/C256 

] 

2858 POKE 512, ADL- (PEEK (51 

3J»C256> 

2868 POKE 54286,192 

2878 RETURN 

2888 DATA 72,173,255,6,141 

,18,212,141,9,212,184,64 




GRAPHICS HARDCOPY 



$34.95 



Dumps anything on the screen of your Atari'* 
Computer to a printer. All graphics and text 
modes supported. Great lor graphs, pictures, 
custom fonts, etc. Includes scaling and grey 
scale. Works with EPSON'. NEC. 
OKIDATA'. and GEMINI' connected to the 
Atari 850 Interlace Module. Includes software 
on disk (only) and extensive User Manual. Or- 
der Part No. "GH" $34.95. 



SCREEN PRIHTER INTERFACE 

Same as Graphics Hardcopy but includes a 
cable to connect your 36 pin (Centronics) 
style) parallel printer to controller ports 1 and 
2. thus eliminating the need for the 850 Inter- 
lace Module. Compatible with BASIC, 
Editor/Assembler, PILOT and Atari Writer. In- 
cludes software on disk (only), printer cable, 
and extensive User Manual. Order Part No. 
"APG" $79.95 



(209) 667-2888 
AUCiX3TRONICS, inc. ® 



HASTEKMO 
C.0.0. 



1126 N. GOLDEN SIAIt BLVD. 
lURlOCK. CA. WMO 

"Atari is a registered trademarl( ol Atari Computer Inc. 
' NEC. Epson, Okidata and Gemini are registered trademarks 
of NEC Information Systems. Epson America inc.. Okidata 
Corp.. and Star Micronics respectively. 
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NONVIOLENT FAMILY FUN AT AFFORDABLE PRICES! 

Dawn of Civilization 

A milliofi years ago tnankind was faced with two 
great challenges - adequate food supply and defense 
against the threat of invasion from unknown forces. 
DAWN OF CIVILIZATION gives you a chance to help 
a tribe of early people feed itself, fend off invaders, 
and reproduce to insure continuation throughout 
generations. Written in 100% machine language 
for one to four human or computer players, this 
game is easy to learn, but difficult to master! Your 
skillful play can insure the continuation of mankind 
- can you meet the chalenge? 

ALL ATARI® - 16K disk or tape $10.95 

After Pearl 

Can you duplicate the amazing effort put forth by 
the American forces after Pearl Harbor? AFTER 
PEARL is an exciting strategic simulation of the war 
in the Pacific. The game comes with a 40 turn cam- 
paign covering the entire period from Pearl Harbor 
to the capture of Iwo Jima. The country's forces 
are at your command, and 113 aircraft carriers, 
battlesliips, and cruisers are included in the action. 
AFTER PEARL will challenge you, either in its 
solitaire version or against a human opponent. 
100% machine language programming keeps the 
action in AFTER PEARL as fast as real life! 
ALL ATARI® - 48K disk or tape $19.95 

SUPERware 

ORDER 2028 Kingshouse Rd. Dealer 

NOW! Silver Spring, MD 20904 Inquires 

(301) 236-4459 Invited 

MC, VISA, AMX, Check, M.O. Accepted 
Include $2.00 shipping, MD residents add 5% tax. 
Write SUPERware for your FREE copy of BASIC 
MAGIC I - programming tricks for the ATARI. 
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You should now be able to alter 
any character with Create-A-Font 

without disturbing the menu. Dur- 
ing disc or cassette SAVing or 
LOADing of character sets, the 
DLI will be momentarily disabled, 
but this will clear after the SAVE/ 
LOAD is completed. 

Randolph Constan 

East Islip, NY 

I've been an Atari 800 owner 
for about 18 months and your 
magazine has become a standard 
tool in helping me get the most 
from my system. My applications 
for the Atari at this time are 
graphics and word processing with 
other business uses planned in the 
future. 

I would like to use my system in 
the design and execution of pro- 
grammed slide presentations using 
multiple projectors and dissolve 
units. I've been looking into the 
equipment of some manufacturers 
and have seen several that offer 



COST EFFECTIVE SOFTWARE 

BY 
"The Best Little Software House In Texas" 

HOMEBASE by soft SECTRE is a 
versatile dalabase program lor Ihe home, small busi- 
ness or lab. In a 'USER FRIENDLY' MENU driven lormal 
HOMEBASE ulilizes TWENTY COMMANDS: CREATE, 
ADD, LIST, CLIST, CHANGE, CONCATENATE, 
SEARCH. SUM. SORT, DELETE. LABELS. LOAD. 
PRINT. SAVE. DIRECTORY. HELP, DRIVE, AUDIO, 
LOWER CASE, END. An opiional SECURITY CODE 
prevents unathorized riala liie retrieval and manipula- 
tion. Optional AUDIO FEEDBACK signals Ihe end ol a 
command response. The ATARI version uses a 
MACHINE LANGUAGE SORT! 
HOMEBASE is ideal lor: MAILING LISTS (we use it 
ourselves): household, insurance and equipment IN- 
VENTORIES: MAINTENANCE schedules: a PRESCRIP- 
TION list: retund COUPON and GROCERY lists. Ready- 
to-use data tiles lor these tasks are included. Why buy 
several programs? Purchase Ihe ONE program thai will 
handle all ol your dalabase needs HOMEBASE by 
SOFT SECTRE will SAVE you TIME and MONEY! 
SELECTRE by SOFT SECTRE is included in Ihe disk 
based package at no additional charge (a $29,95 
value!) Disk DIRECTORIES and PROGRAMS are 
loaded with numeric key input allowing even the most 
inexperienced person lo easily operate Ihe computer, 
ATARI OR PET DISK 32K $49,95 
PET TAPE 16K $49,95 

Add $2,00 lor shipping, 

SOFT SECTRE 

P BOX 1821. PLANO. TX nOU 
Send (nr FREE catalog! VISA/MaslerCard WELCOMED 
CIRCLE #108 ON READER SERVICE CARD, 



software and cards for the Apple 
computers, but nothing seems to 
be available for the Atari. It would 
seem possible to interface with the 
joystick ports and use the sound 
capabilities for the computer to 
generate the audio "cues" on tape 
to control the projectors, and 
store the information on disk for 
future presentations. 

Perhaps you or your readers can 
provide some ideas and sugges- 
tions for this concept as I'm sure 
this would be an interesting appli- 
cation for the Atari computer, and 
a challenge for the serious pro- 
grammer. 

Very truly yours, 

David LaComb 

Utica, N.Y. 

Lock Ups 

I've had my Atari 800 computer 
for about 10 months. I bought my 
first issue of ANALOG (July/ 
August 1983) and typed in Cat 
and Mouse. After I saved it on 
cassette, I ran the program and to 
my dismay my computer locked 
up. Awhile later, a friend was over 
and was typing in a game from a 
book. He ran the program after 
every line to see how it was coming 
along. When he reached the line 
with the USR command he typed 
it in and ran it (the program). The 
computer locked up. After seeing 
this we preceded to take out the 
line with the USR command in 
Cat and Mouse. The game ran 
fine except for the lack of a dis- 
played score. I have had a few other 
lock ups but not all of the USR 
commands were followed by an 
ADR command, such as Fast Re- 
peat in your February 1984 issue. 
Stuntman from your Compen- 
dium also locked up but ran fine 
without the USR command. I'm 
not sure what to do. I hardly ever 
take my basic cartridge out of my 
computer. Could I have something 
wrong with my basic cartridge 
because of leaving it in? Or is my 
ROM messed up somehow? I real- 
ly enjoy your magazine and look 



forward to it every month. I've 
written to find out what is wrong 
and to see if my computer needs 
possible repairs. 

Kirk Lampert 

Seville, Ohio 

Both. "Stuntman" and "Cat and 
Mouse" work as listed. These pro- 
grams contain USR functions with 
control characters.lf any of these 
characters are mistyped, a lockup will 
almost certainly occur. Use the 
C: CHECK or D: CHECK Program, 
included in the Compendium, to 
check your typing. 

— TH 



In response to Chris Johnson's 
letter in issue # 16, 1 would just like 
to say that Starbovi'I Football is 
one of the best computer games 1 
have played. There are ways to 
beat the pro team consistently. 
One, go after the interception, the 
only way you can score is to have 
the ball. Secondly, find a play that 
is reliable for 10 or more yards. 
Hint: try programming the top 
receiver for a slant-in to catch the 
ball, a middle rush, and a screen 
on the bottom receiver. If the line- 
backer is on a blitz, a caught pass 
will result in 6 points. 

Gamestar's Baseball is equally 
as exciting and I hope to purchase 
it soon. 

Thank you, 

R Curtis 

Frankfort, MI 




Send letters to: 

READER COMMENT 

P.O. BOX 23 

WORCESTER, MA 01603 



MORE DISK DRIVE FOR YOUR MONEY 

In fact, with the ASTRA 1620, you get two superb Disk Drives for the 
price of one. The ASTRA 1620 is Single or Double Density (software 
selectable) and completely compatible with ATARI DOS or OSA+ DOS 
When used as Double Density, the ASTRA 1 620 has the same capacity 
as Four ATARI 810® Disk Drives. 





DOUBLE 

OR 

SINGLE 

DENSITY 

The ASTRA 1620 can be 
either single or double 
density, depending on the 
software selected. One 
drive can be configured for 
single density and the 
other drive for double den- 
sity, or any combination 
desired. The ASTRA 1620 
is compatible with virtually 
any software available for 
ATARI® Disk Drives. The 
ASTRA 1620 is smooth, 
quiet and fast. In Single 
Density mode, the ASTRA 
1620 stores 88K bytes of 
programs or files. In Dou- 
ble Density, the ASTRA 
1620 stores 176K bytes, 
simply twice as much. 



TWO DRIVES ... Yes, two superb disk drives in the same size enclosure normally used for one drive. The ASTRA 1620 measures 7%" wide x 
11%" deep X 5%"high. 

Two drives will open a new dimension of computing for you. The program disk can be in one drive and the data disk can be in the other. This will 
eliminate time consuming disk changes. Backing up disks and copying files will never be easier. Just follow the instructions on the screen and 
walk away. The job will be completed within minutes. We have simplified copying from single to double density. With two drives, it's just as easy 
as copying in one mode. No disk switching! 

Two double density drives give you the power that much larger and more expensive computers have without giving up any of the features avail- 
able on the ATARI® Home Computer. 

EASY TO USE ... The ASTRA 1620 comes complete with everything you need. Just plug it in, chain it up, and turn it on. 

The ASTRA 1620 comes with OSA+ DOS (The best disk operating system available for the ATARI® computer!). The OSA+ DOS is completely 
compatible with all existing ATARI DOS files. Because the OSA+ user manual is very complete and technical, we include our own simplified user 
manual. Between the two furnished manuals, you have the information necessary to perform any task required of your disk drive. 

The ASTRA 1620 also contains a data cord, power transformer, and operator manual. 
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5230 Clark Avenue, Suite 19 
Lakewood, California 90712 



Phone 
(213) 804-1475 
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The Second 

ANALOG Guide 



to 



Atari Computer Publications 



by Lee Pappas 



ANALOG continues its Guide To Atari Computer Publications in the effort to keep our readers up 
to date on new books of interest. This issue lists books released since the previous guide printed in 
issue 12 (July/August 83). And don't forget the ANALOG Compendium ($14.95), containing 
over 50 programs covering graphics, disk and programming utilities, and the finest magazine games 



ever. 



HARDY, JACK B. ADVENTURES WITH THE ATARI. 

356pp. RESTON84, 14.95 

Ever wish you could write your own adventure game? Well 
this book not only shows you how, but includes several 
listings for games (some using graphics) such as Escape, The 
Hunter, Time Crime, and The Creator. Some listings are in 
Atari BASIC, while others are written in PILOT and Micro- 
soft BASIC to show how some languages are better than 
others for certain applications. Additional information 
covers flowcharting, mapping, and game design. 



FERNANDEZ, JUDl N., DONNA TABLER, and RUTH 
ASHLEY. 6502 ASSEMBLY LANGUAGE PROGRAM- 
MING. 277pp. WILEY83, 12.95 

Examples and diagrams assist in understanding the complex 
structure of machine language. Frequent questions give this 
book a textbook resemblance with answers provided at the 
end of each chapter. 



LEVENTHAL, LANCE A., ASSEMBLY LANGUAGE 
PROGRAMMING, 640pp. OSBORNE, 18.95 
One of the finest instructional guides to learning the 6502 
language of the Atari computers. An easy to understand guide 
into the complex and challenging world of assembly coding. 



EVANS, CARL M. ATARI BASIC FASTER AND BET- 
TER. 300pp. IJG83, 19.95 

A hefty book dedicated to Atari BASIC, 16 chapters cover 
extensive use of string manipulation, USR (machine language 
subroutines) calls, sound usage, screen handling and data 



structure. How to set up your own AUTORUN.SYS files, 
disk catalogs, and scrolling fields are also covered. Program 
listing, sound effect demos, and a multitude of charts and . 
tables will get you on your way to advanced programming in 
BASIC. 



SEYER, PHILIP C, ATARI PLAYER-MISSILE GRAPH- 
ICS IN BASIC. 173pp. RESTON83, 14.95 
Philip Seyer has done an admirable job documenting, in an 
easy to understand format, how to go about plotting and 
moving the Atari's player-missile graphics. Tables and pro- 
gram listings illustrate how to accomplish these, along with 
additional information that will help the average user get more 
out of their computer. 



PHILIPS, GARY, and JERRY WHITE, THE ATARI USER'S 
ENCYCLOPEDIA, 267pp. BOOK C084, 19.95 
If you're a regular reader of ANALOG, then this book 
should appeal to you. An amazing compilation takes us into 
the world of Atari-computerland, very complete and up to 
date. This book makes enjoyable reading, along with being 
highly informative. Written with the aid of Jerry White, one 
of the most knowledgeable Atari-ites around. 



LAMOITIER, JEAN-PIERRE, BASIC EXERCISES FOR 
THE ATARI, 251 pp. SYBEX83, 12.95 
Contains many program listings in BASIC including chapters 
on games, financial computations and flowcharts. Mathema- 
tical programs cover geometry, integers, and statistics. 

(submitted by Larry A. Campbell of St. Louis, Mo.) 



^ 



THE BEST ATARI SOFTWARE. Spiralbound, 192pp. 
By the Editors of Consumer Guide, 83. . 
Written by several people involved in the Atari computing 
world, this book covers what the authors feel is some of the 
better pieces of Atari-computer compatible software. The 
catagories include word processing, home, business, educa- 
tion, modem (networking) programs, utility /programing 
aids, and entertainment. Entertainment is broken down into 
strategy and arcade games. Again, this is one of those books 
that must be taken with a grain of salt, as opinions always 
vary greatly. 



CANE, MIKE, THE COMPUTER PHONE BOOK. 

451pp. NEW AMERICAN83, 9.95 

Besides many pages devoted to the explanation of what online 
systems are and how to use them, over one hundred pages list 
phone numbers, locations, system baud rates, and back- 
ground information on the systems. Though not written 
specifically for the Atari systems, this book may be a help to 
those who are actively involved in telecommunications. 



ORWIG, GARY W., and WILLIAM S. HODGES, THE 
COMPUTER TUTOR: ATARI HOME COMPUTER 
EDITION. LITTLE BROWN83, 15.50 
Applicable to the entire Atari computer series, this book 
contains listings of an educational nature. 



HOGAN, THOM, DISCOVER FORTH. 146pp. 
OSBORNE83, 16.95 

For the beginner or experienced programmer, this book acts 
as both a learning guide and reference tool into the learning 
and programming of FORTH. 



consist of games, utilities and practical programs such as 
Jet Jockey, Heat Loss Survey, Ghost Town Vampire Girls, 
and Calorie Counter. Documentation accompanies each pro- 
gram, along with a string and variable table to assist you in 
modifying any of the listings. A cassette is available from the 
author for an additional $9.95. 



DITLEA, STEVE, HOME COMPUTER SOFTWARE 

GUIDE. 196pp. OSBORNE84, 11.95 

Covers all the popular computers along with the Atari. Eight 
chapters "review" and discuss software catagories such as 
entertainment, education, communications, finance, word 
processing and investment. Occasional screen display exam- 
ples and charts assist in software selection, though the book is 
not all inclusive for the Atari computers. 



SWANSOhi, PAUL S., INTRODUCTION TO GRAPH- 
ICS ON YOUR ATARI COMPUTER. 250pp. 
OSBORNE83, 16.95 

Covering the entire Atari computer line, this book shows 
you how to create simple to complex graphics on the Atari. 
Chapters cover redefined character sets, animation, plotting, 
drawing, mapping modes, multiple screens, machine lan- 
guage, music and sound. 



MAYER, NANCY KOZAK, Ed.D. . RAINY DAY ACTIV- 
ITIES FOR THE ATARI. 156pp, RESTON84, 12.95 
Written for 3-9 year olds, this plastic-spiralbound contains 
Atari BASIC written games for youngsters including those on 
numbers, words, names, and music. In addition, this book is 
laid out in a workbook format designed to be used along with 
the programs listed within. 



HELLER, DAVID L., JOHN JOHNSON, and ROBERT 
KURCINA, DR. C. WACKO'S MIRACLE GUIDE TO 
DESIGNING AND PROGRAMMING YOUR OWN 
ATARI COMPUTER ARCADE GAMES. 235pp. 
ADDISON- WESLEY83, 24.95 

This book has a fresh look as though it were written in an 
insane asylum. The book reeks with twisted graphics and 
humor, and certainly gets its intended point across: teaching 
you how to program your own arcade-style games. Chapters 
cover animation, player-missile graphics, zounds (sounds), 
character graphics and movement. The $24.95 price tag 
includes an Atari-compatible disk containing many of the 
useful demos in the book (listings are also provided in the 
text). 



HELLER, DAVID and DOROTHY, FREE SOFTWARE 
FOR YOUR ATARL 208pp. ENRICH/OHAUS83, 8.95 
As the title suggests, this book shows where and how to get 
software through educational sources, magazines, users groups, 
and BBSs (Bulletin Board Systems). The chapter on BBSs, for 
instance, explains how they work, lists many sources to call, 
and how to set up your own system. Also included is a dis- 
cussion with a couple of Atari executives. This guide to free 
software will set you back $8.95 though. 



BANSE, TIMOTHY P., HOME APPLICATIONS AND 

GAMES FOR THE ATARI. 134pp. LITTLE BROWN83, 

14.50 

A collection of somewhat brief programs, all compatible 

with the 400/800 and entire XL series. These 24 programs 



WILLIS, JERRY, MERL MILLER and NANCY MORRICE. 
THINGS TO DO WITH YOUR ATARI COMPUTER. 

230pp. NEW AMER1CAN83, 3.95 

Chapters cover Arts and Crafts, Fun and Games, Business 

and Professional Uses, Telecommunications and other topics. 

Many photos show screen displays and hardware, including a 

section on popular games from many different companies. A 

nice resource for those just purchasing an Atari home 

computer. 



THE USER'S GUIDE TO ATARI (400/800/1200XL 
COMPUTERS, SOFTWARE & PERIPHERALS). 

240pp. By the Editors of Consumer Guide, POCKET83, 
3.95 

For those who know little to nothing about their Atari com- 
puters, this paperback defines things like the OPTION, 
SELECT, START and BREAK keys, how to do simple math 
without programming, and what the cursor is. It also explains 
computer setup, disk and cassette storage, and a rather out- 
dated section on Atari and compatible peripherals. 



WEBER, JEFFREY R. and STEPHEN J. SZCZECINSKI, 
USER'S HANDBOOK TO THE ATARI 400/800 
COMPUTERS. Many examples, 319pp. WEBER83, 13.95 
A concise guide to all of the Atari computers, this book 
includes many charts and examples covering: Atari BASIC, 
graphics, DOS, and sound. The book also has chapters on 
the 810 disk drive, 850 interface module, and the older 
Atari printers. 



HAPPY WINS THE RACE WITH WARP DRIVE SPEED! 




HAPPY 810 ENHANCEMENT 

The only change needed to run all WARP DRIVE software 

• Plug in P.C. board requires no permanent modifications 

• Proven reliable in thousands of installations, reduces disk drive wear > 

• Comes completely assembled and tested, just plug in and use 

• Full one year parts and labor guarantee, compatible with existing software 

• High quality printed circuit board with gold connectors 

NO ONE ELSE HAS THIS PERFORMANCE \/ J Hf 

Unenhanced whole disk (ATARI rev B format) read time: 1 1 2 seconds — "*" • . 

Unenhanced whole disk (ATARI rev C fast format) read time: 89 seconds 

ENHANCED 810 whole disk (any format) read time with standard software: 68 seconds 
ENHANCED 81 whole disk (any format) read time with WARP DRIVE software: 43 seconds 
Standard software whole disk write and verify time: 238 seconds 
WARP DRIVE software whole disk write and verify time: 62 seconds ■? 

NEW HAPPY WARP DRIVE SOFTWARE 

WARP SPEED HAPPY BACKUP PROGRAM 

• Completely automatic: nothing to figure out, insert disks and press return 

• Only program on the market guaranteed to backup any disk 

• Can write to a blank disk: format write and verify in one operation ." , > 

• Automatic program tracing: copies only the tracks that are used 

• Efficient memory utilization: reduces the number of disk insertions 

• Requires only one ENHANCED disk drive, backups will work on a standard drive 
WARP SPEED MULTI DRIVE HAPPY BACKUP PROGRAM 

• Same features as above plus support of multiple ENHANCED drives 

• Can be used with up to 4 ENHANCED drives 

• Source and all destination drives read and write in parallel 

• Format write and verify 3 complete disks in less than 3 minutes 
WARP SPEED HAPPY COMPACTOR PROGRAM 

• Reduces the number of disks required to backup your library 

• Combines up to 8 self booting disks into 1 disk with a menu 

• Compacted disks run only on an ENHANCED drive 

• Pays for itself by saving on disks 

• Single or dual ENHANCED drive operation 

HAPPY WARP DRIVE DOS 

• Improves ATARI DOS 2.0S to use warp speed reading and write with verify 

• Use all features of BASIC, PILOT, FMS, and DUP at top warp speed 

• Warp speed I/O software module available separate from DOS 
HAPPY WARP DRIVE SECTOR COPY PROGRAM 

• Standard format whole disk read, write and verify in 105 seconds 

• Use with sngle or dual drives, mix ENHANCED and NON-ENHANCED drives 
HAPPY CUSTOMIZER PROGRAM (sold separately $99.95) 

• Creates custom format disks of any specification 

• Any type bad sector, duplicate sector numbers, or interleave 

• Easy to use but requires an advanced level user to interpret the results 

REVIEWED IN POPULAR MAGAZINES 

A.N.A.L.O.G. COMPUTING— July/August 1 983 "...The installation instructions lor the Happy 810 Enhancement are among the best I have ever seen. ...The Happy 

810 Enhancement is one ol the most powerlul hardware modilications available lo ATARI computer owners." 

ANTIC— July 1983 "The difference between a normal ATARI 810 disk drive and one equipped with Happy is like the contrast between mass transit and the 

automobile. A car costs you more initially, but improves the quality of your life. Similarly, if you use your disk drive a tof, installing Happy will markedly enhance your 

programming life." 

SPECIAL SUGGESTED RETAIL PRICE BEFORE FEBRUARY 28, 1984: Get the HAPPY 810 ENHANCEMENT with the single and multi drive HAPPY BACKUP 

PROGRAfiA, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS, plus the HAPPY SECTOR COPY all with WARP DRIVE speed, including our 

diagnostic for $249.95. Existing registered ENHANCEMENT owners may upgrade to WARP DRIVE speed for $15.00 with no hardware changes.! 

Price includes stiipping by air mail to U.S.A. and Canada. Foreign orders add $1 0.00 and send an international money order payable through a U.S.A bank California 

orders add $16.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 2-3 weeks to clear. Cash COD 

available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other ATARI compatible drives coming soon, call for 

information. Please specify -H model for all drives purchased new after February 1 982, call for help in ENHANCEMENT model selection. Dealers now throughout 

the world, call for the number of the dealer closest to you. atari 8io is a registered trademark of Atari, inc. 

HAPPY COMPUTERS, INC. • P.O. Box 1268 • Morgan Hill, California 95037 • (408)779-3830 
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G ommunications 

for the 

Handicapped 



16K Cassette or 24K Disk 



by Michael Long 



Imagine yourself flat on your back, unable to 
move a muscle. Imagine yourself fully aware of all 
that happens around you, but unable to respond or 
communicate in any way. Sounds like the opening of 
a Twilight Zone episode, doesn't it? Yet people find 
themselves in this condition every day as a result of 
an automobile accident or other injury. This article 
will show you how you can help to end this isolation 
in your own community, with the help of your Atari. 

The Puff-and-Sip Communication Program 
in Listing 1 will allow anyone who can operate two 
switches to create text on a television screen using an 
Atari computer. The switches can be actuated by any 
means you choose, but for demonstration purposes 
we will use a joystick plugged into port one. Later I 
will describe a simple input device that the handi- 
capped can use, but first let's get the program up and 
running. 

Type in Listing 1 , save it and RUN it. You will see 
a title screen for a few seconds while the computer 
gets everything set up. Then you will see a screen that 
allows you to vary the speed of the program. Pull 
back on the joystick and you will see a square cursor 
moving across the numbers at the bottom of the 
screen. Speed 1 is very slow. Each succeeding 
number doubles the speed. I have been able to 
operate with a joystick at speed 4, but speed 3 seems 
the best compromise with other devices. When the 
cursor is on 3, push forward on the stick. 



You should now see a black screen with a cursor in 
the upper left corner and a menu across the bottom 
that looks like this: 

S TAOSWIHCBFPMR P 
There is another cursor around the "S" on the left. 
The green "S" stands for space. If you push on the 
stick a space will be added to the message and the 
message cursor will move one space to the right. Try 
it. 

If you pull on the stick the menu cursor will move 
to the right across the list of orange letters. If you 
move the cursor off the right edge of the screen it will 
wrap to the left edge and the menu will "flip" to 
show the rest of the alphabet. Choose one of the 
orange letters and push on the stick. The letter you 
have chosen will be added to the message and the 
message cursor will move one space to the right, 
ready for another character. 

Now that you know how to put characters on the 
screen, let's look at the rest of the menus. Pull on the 
stick until the cursor is on the green "P" on the far 
right and push. The menu "flips" to a punctuation 
menu that looks like this: 

S .,;:?!'" FB C N 
The green "S" is for "space," and the punctuation 
marks work just like the letters. The green "F," "B," 
and "C" are commands. Put the cursor on the "F" 
and the message cursor moves forward one space 
each time you push the stick. Put the cursor on the 
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"B" and the cursor moves backward one space for 
each push. The "C" clears the screen, but only after 
giving you a chance to back out if you selected it by 
mistake. 

Again, if you move the cursor off the right edge it 
will wrap to the left and the rest of the punctuation 
menu will appear. Put the cursor on the "N" on the 
right and the number menu appears. 

The number menu also includes several 
puncuation marks that might be useful with 
numbers; it looks like this: 

S 0123456789$%. L 
Put the cursor on the "L" and push, and you are back 
to the letter menu. 

Menu selection. 

You may have noticed that you don't always get 
the same menu after you enter a character. Here's 
how the menu selection works and why. 

The letter menus are held in one long string 
(DIG$) and selected according to the last character 
entered. You may have noticed that you can con- 
struct a message fairly quickly if the letters you want 
are near the start of the menu, but if they are near 
the end it can take quite a while. There are tables 
available in cryptography books that rank the alpha- 
bet in order of probability as the initial letter of 
a word, or following any particular letter. This is 
how the letter menus are arranged. There is a 90% 
probability that the required letter will be on the first 
page of the menu and a 50% probability that it will 
be in the first five characters. 

There are other peculiarities in the way that the 
menus change. These are based on common sense 
rather than probability: 

(1) After any character is selected, the cursor will 
always return to the "space." This is based on the 
assumption that there will be more spaces in a 
message than any other single character. 

(2) After any punctuation mark is selected, the 
menu returns to the initial letter menu. Puncuation 
marks seldom follow each other. They are usually 
followed by a space. 

(3) When a cursor control command ("F" or 
"B") is selected, the cursor remains on the same 
character. This makes it easier to move through the 
message to make corrections. 

(4) When a number is selected, the letter menu 
does not automatically appear. Numbers are often 
used in groups (e.g.; $125.62). 

Puff-and-sip. 

Now that you know how the program works, how 
could a person who cannot move his hands operate 
it? He (or she) certainly can't use a joystick. One 
answer is a "puff-and-sip" switch. Here's how it 
works and how to make one. You will need the fol- 
lowing parts: 

l.Two air-actuated microswitches, one 

pressure-actuated and one vacuum-actuated. 



These should be normally open. 

2. One DE-98 joystick connector. 

3. Twelve feet of 22-gauge wire. 

4. Four feet of surgical tubing. 

5. One Y-type connector for the tubing. 

6. One small box to hold the switches. 

The air-actuated microswitches can be a little hard 
to find. If you can't find them locally, contact: 

Dumont Instrumentation, Inc. 
75 Mall Drive 
Commack, NY 11725 
(516) 864-8500 

Connect one side of the vacuum-activated switch 
to pin 1 of the DE-9 connector, and one side of the 
pressure activated switch to pin 2. Connect the other 
side of both switches to pin 8 (GND). Connect the 
air inputs of both switches to the "arms" of the Y- 
connector with tubing. Finally, connect a few feet of 
tubing to the base of the Y and box the whole thing 
up. 

DE-9S 



pin 1 



pin i 



pin 2 



S1 



S2 



^>^ 



Wiring 

51 is vacuum operated. 

52 is pressure operated. 



Pneumatics 



Check the connections to make sure they are 
correct and plug the box into controller port 1. If 
you blow into the tube, the effect is the same as 
pulling back on the stick. If you inhale on the tube, 
you push on the stick. 

The Puff-and-Sip Communication Program, 
as listed here, will allow a quadraplegic patient with 
minimal computer skills to talk to a friend or thera- 
pist. It is certainly not the only use for this idea. With 
a little more work, the program could drive a printer, 
or be the basis for a word processor. It could be used 
as an input subroutine for a modem program, or 
even for an operating system that would allow the 
full power of the computer to be used without any 
keyboard input. It is offered here as an example of 
what you can do with average programming skills to 
improve the quality of life for the handicapped 
people in your community. 
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I would be interested in hearing from anyone with 
interest in this area. I can be contacted at (918) 834- 
0503, or on SIG*ATARI, CIS # 72435,35. 

Partial variable list. 

CURS — The horizontal position of the 
message cursor. 

CURSLOC — The horizontal position of 
the menu cursor. 

CURSIMG — The address where the cursor 
image is stored. 

DIG$ — The letter menus in probability 
order. 

MENU$ — The menu currently in use. 

MINDEX — A pointer to the first or second 
half of the menu. 

NUM$ — The number menu. 

PMBASE — The address of the start of 
player /missile memory. 

PUFF — The value of STICK(O) to be inter- 
preted as a puff. 

PUNC$ — The punctuation menu. 

SIP — The value of STICK(O) to be interpre- 
ted as a sip. 

T$ — The menu entry for the next menu. 

VERT — The address of the P/M vertical 
move routine. 

VP — The vertical position of the cursor as 
an offset from PMBASE. 



How it works. 

Lines 100-230 (Main Loop). Prints the 
current menu, reads STICK(O), updates the 
menu cursor, and calls the subroutines to get 
characters from the current menu. 

Lines 300-340 (Get Letters). Call the sub- 
routine to print the current character to the 
screen and sets MENU$ equal to the next menu. 

Lines 400-530 (Get Punctuation). Calls 
the subroutines to print the current character to 
the screen, move the message cursor backward 
or forward, or clear the screen. Sets MENU$ 
equal to the next menu. 

Lines 600-630 (Get Numbers). Calls the 
subroutine to print the current character to the 
screen and sets MENU$ equal to the next menu. 

Lines 700-760 (Move Message Cursor). 
The subroutine to move the message cursor. 
Uses a ML routine for vertical moves. 

Lines 800-850 (Clear Screen). Prompts for 
confirmation, clears the current message, and 
moves the message cursor to the upper left. 

Line 1000 (Print Character). Prints the 
current character to the current message cursor 
position and calls the message cursor move 
routine. 

Lines 20000-20120 (Set Speed). Prints the 



speed selecdon screen, reads STICK(O), and 
sets SPEED. 

Lines 30000-30010 (Begin Initializa- 
tion). Moves RAMTOP down four pages to 
make room for P/M memory, sets the left mar- 
gin to zero, and sets graphics mode 2. 

Lines 30100-30110 (Customize Display 
List). Changes the text window to large text 
(OR. 2). This allows using PRINT #6 to print to 
the message window, and PRINT to print to the 
menu window. 

Lines 30200-30230 (Title Page). Prints 
the title page. 

Lines 30300-30350 (Set-up P/M Graph- 
ics). Pokes the cursor images into P/M memory 
and sets the initial colors and horizontal 
positions. 

Lines 30400-30720 (Initialize Varia- 
bles). Sets the initial values of variables. 

Lines 30800-30910 (Cursor Vertical 
Move Routine). Sets up the ML routine to 
move the cursor vertically. The routine was 
written by David H. Markley and published in 
COMPUTERS First Book of Atari Graphics, page 
154. D 



1 REH KKKKKICmtltKKKKKKMlCKKICKMKKltMM 

2 REH » OTARI » 

3 REM » Puff-and-Sip « 

4 REH « CoHMunication « 

5 REH » PrograM » 

6 REH » uersion 2.8 » 

7 REH » fc}1983 » 

8 REH * Michael Long « 

9 REH mCKMKKMKKltKmiMKKKlClCKltlClCmClCIt 

10 G05UB 30800 :G0SU8 28080:? tt6;"ll";:P 
OKE 705,8 

95 REH » MAIN LOOP 

100 ? " s ";l<CNUSCHINDEX,HIIIDEX+12);" 

";tSj:? :? :? 

110 POKE 77,0 :F0R DELAY=1 TO SPEED:NEX 

T DELAYlSOUND 0,0,0,8 :L00P=118 

128 A=5TICKCei:IF AOPUFF THEN GOTO 17 



130 IF CUR5L0C=184 AND HINDEK=1 THEN C 

URSL0C=56 : HINDEX=14 : LDOP=ieO : GOTO 160 

140 IF CUR5L0C=184 AND HINDEX=14 THEN 

CUR5L0C=56 : HINDEX=1 : L00P=100 : GOTO 160 

150 CURSL0C=CUR5L0CHH8 

168 POKE 53248, CURSLOC .-GOTO LOOP 

170 IF A05IP THEN GOTO LOOP 

180 IF CURSL0C=5e THEN ? tt6;" ";:HENU$ 

=DIG$ CI , 26 J : TS="p" : HINDEX=:1 : LOOP=108 : C 

OSUB 708: GOTO 238 

198 IF CUR5L0C=64 OR CURSL0C=176 THEN 

GOTO 230 

208 IF TS="p" THEN GOSUB 300 : GOTO 230 

218 IF l$-"n" THEN GOSUB 488:GDT0 230 

220 IF T$="l" THEN GOSUB 600 

230 SOUND 0,100, 10, 8:P0KE 53248, CURSLO 

C:GOTO LOOP 

295 REM » GET LETTERS 

300 IF CURSL0C=184 THEN l«NU$=PUNC$ : T$ 

="n":G0T0 338 

318 GOSUB 1880 

320 C= CASC CMENU5 CB , BJ 3 -64J#26 : ICNU$=OI 

G5CC+l,C+26) 

338 CURSL0C=56 : MINDEX=1 : L00P=ie0 

340 RETURN 

395 REM * GET PUNCTUATION 

400 IF CURSL0C=184 THEN HENU$=NUH$ : 15= 

"1":G0T0 520 

410 'if MINDEX=1 then goto 430 

428 GOSUB 1000: GOTO 510 



Getting down to 
Atari BASICS 



Basic Atari® BASIC 

(Coan/Kushner) A complete suide 
to Atari BASIC adapted from the 
best selling Basic Apple BASIC. 
Contains over 80 programs-all 
conveniently indexed-that explain 
and offer hands-on practice in 
BASIC programming. 
#6526, $14.95. 

Qwerty% Alphabet Adventure 
Qwertyls Number Adventure 

(Shadow Lawn Press) Introduces 
your children to Qwerty-a fun- 
loving caterpillar who serves as a 
guide through the alphabet and 
number concepts. Colorful anima- 
tion and a fun storyline will keep 
children entranced for hours. 

Available as book/software pack- 
age only containing 1 cassette plus 
documentation. 
Alphabet #6525 
Number #6527 
$14.95 each 



The Atari® Playground 
Atari® in Wonderland 

(D'Ignazio) Imaginative way to 
teach microcomputing to young- 
sters. The Playground contains 23 
unique programs in which children 
play in a spelling bee, draw with a 
computer crayon, chase wild let- 
ters and ghosts. Wonderland 
introduces children to word and 
number skills, angle measuring 
while riding a computer roller 
coaster, and counting in French 
and Spanish. Includes plenty of 
suggestions and tips for making 
each program even more fun! 
Playsround #5770 
Wonderland #5771 
$9.95 each 



Order by Phone 
1-800-631-0856 

In NJ call (201) 393-6315 




I Speak BASIC to My Atari® 

(Jones) Part of the widely ac- 
claimed I Speak BASIC series, the 
student text offers a gentle intro- 
duction to BASIC programming 
and operation of the Atari. In- 
cludes plenty of programming 
exercises and examples. 

Teacher's Manual available for edu- 
cators. Order on school letterhead. 
A 20% discount available to 
educators. 

Student text #6178, $9.75. 
Teacher's manual #6168, $18.75. 



Stimulating Simulations 
for the Atari® 

(Engel) Another in the popular 
Stimulating Simulations series. 
Provides all the unique challenges 
and spine-tingling chills that have 
made this series a favorite. In- 
cludes "Devil's Dungeon," "Lost 
Treasure," "Forest Fire," "Monster 
Chase," and "Diamond Thief." 
#5197, $7.50. 



HAYDEN 






Mail to: 



^^1^^ ^m^k 




^^ 




Dept. AN44 • Hayden Book Company 

10 Mulholland Dr. • Hasbrouck Hts., NJ 07604 

Please send me the bookCs) indicated below by 

code number. If I am not completely satisfied I may 

return ttie booKs) undamaged, within 10 days for a 

complete refund. I am enclosing $2.00 to cover 

postage and handling. 

Q Enclosed is my check or money order 

D Bill my D Visa D MasterCard 



^ 



Atari is a registered trademark of Atari, Inc., a division of ^X^rner Communications and is not affiliated witii 
Ha/den Bool< Company. 



Name 



Mdress 



— "^^l State/Zip 



r Visa/MasterCard # 



Expires 



Signature 



CIRCLE #111 ON READER SERVICE CARD. 



Residents of NJ and CA must add sales tax. 
Prices subject to change. 
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438 IF CURSL0C=136 OR CUR5L0C=16e THEN 

GOTO 530 
440 IF CUR5L0C=144 AND PEEKC85J019 TH 
EN POKE 85,PEEKt85}+l:G05UB 72e:G0T0 5 
30 

450 IF CUR5L0C=144 AND PEEK (85} =19 THE 
H POKE 84, PEEK (84) +1: POKE 85,8:G05UB 7 
00: GOTO 530 

460 IF CURSL0C=152 AND PEEK(85]<>0 THE 
N POKE 85,PEEK(85)-l:G0SUB 74O:G0T0 53 


470 IF CUR5L0C=152 AND PEEK (851=0 AND 
PEEK (84) =0 THEN GOTO 530 
480 IF CURSL0C=152 AND PEEK (85) =0 THEN 

POKE 84, PEEK (84) -1: POKE S5,19:G05UB 7 
50: GOTO 530 
490 IF CURSL0C=168 THEN G05UB 800:G0T0 

510 
500 GOSUB 1080 
510 HENUS=DIG$(1,26) :TS="p" 
520 CUR5L0C=56:I1INDEX=1:L00P=180 
530 RETURN 

595 REM » GET NUMBERS 

600 IF CURSL0C=184 THEN NENU$=DIG$ (1, 2 
6) :TS="p":L00P=100:G0T0 620 
610 GOSUB 1000 
628 CURSL0C=56:MINDEX=1 
630 RETURN 

695 REN * CURSOR HOUE ROUTINES 
780 IF PEEK (84) =10 THEN POKE 84, 9: POKE 

85,19:G0T0 760 
71D IF PEEK (85) =0 THEN GOTO 738 
728 CURS=CURS+8:G0T0 768 
730 CURS=48:K=USR(UERT, CURSING, PHBASE+ 
VP,PHBASE+UP+8) :UP=UP+8:G0T0 760 
748 CURS=CURS-8:G0TO 760 
750 CURS=2eO : K=USR (UERT , CURSING , PHBASE 
+VP,PNBASE+WP-8) :MP=VP-8 
760 POKE 53249, CURS :RETURN 
795 REN » CLEAR SCREEN ROUTINE 
880 SOUND 0,188, 10, 8:P0KE 704,8 
810 ? " ARE YOU SURE? PUFF=VES 

SIPrHO":? :? :FOH DELAV=1 TO 5PEED/2: 
NEKT DELAY:SOUND 0,0,0,0 
820 fl=STICK(0) :IF A=PUFF THEN POKE 704 
,8:G0T0 850 

838 IF A=SIP THEN POKE 704, 8: RETURN 
840 GOTO 820 

850 ? tt6;"lS"; :CURS=48:P0KE 53249, CURS: 
X=USR (VERT, CURSING, PNBASE+VP,PNBASE+65 
6) :UP=656: RETURN 
995 REM * PRINT CHARACTER 
1000 B=NINDEK*(CURSL0C-76)/8:? tte;CHR$ 
(ASC (HENU$ (B, B) ) +128) ; : GOSUB 788 : RETUR 
N 

19995 REM » SET SPEED 

28800 ? «8;"H":? tt6j" QH MiHaia 



20018 ? «8;" 

II 

28828 ? ttS;" 



l dHHJJ!H. g ra 

an asm 



288 30 P OSITION 0,9:? 1*6 ;" HgOT 

20048 ? ■• 12 3 4 5":':'' 

20058 POKE 704,8 

20868 FOR DELAY=1 TO 100: NEXT DELAY :A= 

STICK(0):IF AOPUFF THEN GOTO 20090 

20078 CURSL0C=CURSL0C416:IF CURSLOOie 

THEN CURSL0C=96 

20080 POKE 53248, CURSLOC 

20090 IF AOSIP THEN GOTO 20060 

20108 B=A6S (CURSLOC-168) /16 : SPEED=25«2 

28118 SOUND 0,100, 10, 8:CURSL0C=56:A=ST 

ICK(8):IF A=15 THEN POKE 53248, CURSLOC 

: RETURN 

20120 GOTO 20110 

29995 REN » INITIALIZATION 

30000 A=PEEK(106)-4:P0KE 106, A 

30010 POKE 82,0:GRAPHICS 2 

38895 HEN « CUSTONIZE DISPLAY LIST 

30100 0L=PEEK(560)HhPEEK(5ei)«256 

30118 POKE DL*15,71:P0KE DL+18,7:P0KE 

DL+19,65:P0KE DLt28, PEEK (DL+22) : POKE D 

L+21,PEEK(DL+23) 

30195 REN » TITLE PAGE 



38200 ? tt6;"H":? Jt6;" ATARI" 

'"^SSHiNfSiVlON"'""^'^-'*"'^-"'*" •■'**^'" 

30220 ? tt6;" PROGRAN":? 1*6 ;" ■■ 

30230 ? tte;" (C)1983":? tt6;" N 

ICHAEL LONG" 

30295 REN » SET UP P/N GRAPHICS 

30300 POKE 54279,A:PI>ffiASE=A«256 

30310 FOR I=PNBASE+512 TO PreASE+768:P 

OKE I,0:NE}{T I 

30320 RESTORE 31000: FOR I=PlffiASE+608 T 

PNBASE+615:READ A: POKE I, A: NEKT I 

30330 RESTORE 31000: FOR I=PI«ASEt656 T 

PNBASE+e63:READ A: POKE I, A: NEXT I 

30340 POKE 53248, 128:P0KE 53249, 48:P0K 

E 7e4,0:P0KE 705,0 

30358 POKE 559, 46: POKE 53277, 2: POKE 62 

30395 REN » INITIALIZE VARIABLES 

^S^S®*"*^" "^^S* '7*"" ' PUNC$ (26) , NUN$ (26) 

,NENU$(26},T$(1) 

30410 CURSL0C=128 : HINDEX=1 : CURS=48 : VP= 

656 : PUFF=13 : SIP=14 

38428 DIG$(1,26)="TA0SHIHCBFPNRELNDUGY 

JVaKXZ":REM » INITIAL LETTERS 

30430 DIG$(27,52)="NTRLSIDCYNGPVBUKFHX 

ZEHJA00":REN * a * 

30440 DIG$(53,78)="ELY0AURISBJIfTCVDEGH 

KNPaMXZ":REN * B * 

30450 DIG$(79,104)="0EHATIRLUKCYSHNDQB 

FGJPVHXZ":REN * C * 

38466 DIGS (105. 130) ="EIAOUSRYDI«LVNUJC 

BTFHOKPXZ":REN « D K 

30470 DIGS (131 , 156) ="RNSDALECTHVI«>IXFG 

YUOBKQHJZ":REN « E » 

30480 DIGS (157, 182) ="OIERFATULYSraiBCDG 

HJKPQVHXZ" : REN * F * 

30490 DIGS (183 , 208) ="ERHOAIUNSTLGYNDBC 

FJKPQVHXZ":REN » G » 

30588 DIGS (289, 234) ="EAIOTRUYNSLNCM>BH 

FGJKPOVXZ";REN » H » 

38518 DIGS (235, 268) ="NSTOCLDEARNGVFPBZ 

KXIUOHYJITMREN » I K 

30528 DIGS (261 , 286) ="UOEAIRBCDFGH JKLHN 

PQSTVIIXYZ":REN * J H 

30530 DIGS (287, 312) ="EISNAHLOKYRBDFNTU 

CGJPOVHXZ":REN » K K 

30540 DIGS (313, 338) ="EILAYODSUTGFNKVPR 

CBI«IHJaxZ":REH * L a 

30560 DIGS (365, 390) ="DTGESICAONYUNFLVK 

UHRJQBPZX":REN « N K 

30578 DIGS (391, 416) ="NRFUHLTSHVPDOCBIA 

GKYEHJXZQ":REN * * 

30580 DIGS (417, 442) ="REOALPUITNSNYCNBD 

FGJKQVHXZ":REH * P * 

30590 DIGS (443 , 468) ="UABCDEFGHIJKLNNOP 

aRSTVI«{YZ":REN « Q K 

30680 DIGS (469 , 494) ="EIOASTNYNDRKUGCLV 

PBFHHXJaZ":REN » R K 

30618 DIGS (495, 528) ="TEISOAUHPCLra(YM>R 

FNBQGJVXZ":REN « S K 

30620 DIGS (521 , 546) ="HEIOARSTYULimCNFV 

ZBPDGJKQZ":REN » T » 

30630 DIGS (547, 572) ="NRTSLCEBPGANIDFUO 

KVYHXZJQU":REN « U K 

30640 DIGS (573, 598) ="EIA0YDSHUVBCF6HJir 

LNPQRTUXZ":REN » V « 

30650 DIGS(599,624)="AIEH0SNRLDYTBCFGJ 

KNPaUVHXZ":REN * M * 

38668 DIGS (625, 658) ="PTECIAXHi«)BDFGJKL 

NQRSUVHVZ":REN * H * 

38678 DIGS (651, 676) ="EOSIANPRLNTUCI«>yB 

KZFGHjaVX":REN » V * 

30680 DIGS (677, 782) ="EAIOZLUBCDFGHJKNN 

PQRSTVHXY":REN » Z * 

38698 NENUS=0IGS(1,26) 

38700 PUNCS(1,6)=".,; :?!" :PUNCS(7,7)=C 

HRS(34) :PUNC$(8,26)="' fb cO+-»/=<>*e 

30710 NUNS="012345e789$>; . 0123456789SX . 

■ I 

30720 TS="p" 

30795 REN » CURSOR VERTICAL NOVENENT 
30800 VERT=1536 

30810 RESTORE 31100:F0R 1=0 TO 43:READ 
A:POKE VERT+I,A:NEXT I 
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30895 REH » CURSOR IHAGE ROUTINE 

30900 CURSIHG=UERT+44 

30910 RESTORE 31200: FOR 1=0 TO 8:REAI> 

A: POKE CURSIHG+I,a:NEXT I 

30920 RETURN 

30995 REH « CURSOR DATA 

31000 DATA 255,129,129,129,129,129,129 

,255 

31095 REH * UERTICAL mUE DATA 

31100 DATA 104,162,5,104,149,220,202,1 

6,250,198,220,190,222,160,0,177,224,17 



31110 DATA 168,165,223,240,9,169,0,145 

,222,136,208,249,138,168,165,221,240,7 

,177,224,145,220,136,208,249,96 

31195 REH * DATA FOR CURSOR IHAGE 

31200 DATA 8,255,129,129,129,129,129,1 

29,255 



CHECKSUM DATA 
(See p. 30) 

1 DATA 255,115,185,694,793,837,47,293, 

271 , 709, 510, 265, 726 , 191 , 916 , 6807 

140 DATA 29,137,441,04,509,366,774,778 

,690,571,932,814,794,656,352,7927 

340 DATA 597,733,448,019,869,135,778,7 

57,350,564,885,665,795,455,353,9203 

538 DATA 598,933,100,800,197,600,307,5 

49,150,429,875,441,773,828,171,7751 

880 DATA 925,633,569,083,729,628,721,7 

76,874,673,889,757,175,93,200,9533 

20066 DATA 640,804,219,221,324,887,189 

,671,614,262,47,840,63,161,839,6781 

30210 DATA 501,601,258,299,37,988,627, 

646, 517, 873, 353, 238, 456, 463, 249, 7186 

30440 DATA 264,441,883,838,931,900,911 

,869,901,918,915,947,926,935,901,12480 

30590 DATA 938,993,923,890,972,984,979 

, 968 , 959 , 972 , 874 , 199 , 332 , 662 , 113 , 11758 

30800 DATA 58,230,407,991,210,57,85,59 

1,113,861,940,458,667,5660 



A LIMITED NUMBER 

OF BACK ISSUES 

IS AVAILABLE. 



ISSUES 



2,8, 11, 12, 13, 14&15 
$4.00 EACH 



ANALOG BACK ISSUES 

P. O. BOX 23 
WORCESTER, MA 01603 



ATTENTION AJAR\ DISK DRIVE OWNERS 

Back up your 
valuable software. 

THE CHIP 

THE CHIP with Archiver/ Editor Software for the Atari 810 
and 1050 disc drives. Includes Disassembler & Sector 
Editor. Includes Custom Formatter and Mapper. Bacl<s up 
virtually any disk. $129.95 poST PAID 

Available soon for PERCOM 
and other Atari compatible disc drives. 

HAPPY 910 ENHANCEMENT 

Complete with Warp Speed software package. Plug-in 

installation — no soldering. Backs up any disc. 

Regular Price $249.95 

LIMITED SPECIAL OFFER $199.95 

Soon available for other disc drives. 

HAPPY OWNERS 

Update your enhancement with Happy Version Archiver/ 
Editor. Makes Happy drives compatible with the chip. 
$39.95 POST PAID 

All software for the Atari DISCOUNTED 30% or MORE. 
Discounts on all Atari compatible hardware. 

Send for free brochure on any of the above or for details on our software discounts. 

SOUTHERN SOFTWARE 

A DIVISION OF SOUTHERN SUPPLY COMPANY 

1879 RUFFNER ROAD BIRMINGHAM, AL 35210 

24 HOUR PHONE 205-956-0986 
Order before 11 A.f\/I. for same day shipping. 

CIRCLE #112 ON READER SERVICE CARD, 




1984 
TAX PLANNER 

ATARI® 400/800/XL 

DON'T GUESSTAMATE! 

Now you can instantly know your exact tax situation 
and manipulate it throughout the year. 

The TAX PLANNER allows you to plan and update your 
tax position throughout the year. Do you want to know 
the exact tax impact of buying a home, selling stock, 
contributing to an IRA, buying rental property etc. . .? 
Can also be used to estimate quarterly tax payments. 

TheTAX PLANNER Includes these schedules and more 



Form 1040 

Schedule A - Itemized Deductions 
Schedule B - Interest & Dividends 
Schedule C - Business Income 
Schedule D • Capital Gains/Losses 
Schedule E - Supplemental Income 



Schedule G - Income Averaging 
Schedule W - Married Deduction 
Form 2106 • Employee Expense 
Form 2119 ■ Sales of Residence 
Form 3906 ■ Moving Expense 
Form 4684 - Casualties & Thefts 



$49.95 



I WSf 



l^^m MiccaSoft 

406 Windsor 

New Braunfeis, TX 78130 

(512) 629-4341 

Requires 48K and Disl< Drive 

VISA/l^c;Checl</Money Order 

Dealer Inquiries Welcome - Texas Residents add 5% Sales Tax 

CIRCLE #113 ON READER SERVICE CARD. 
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For Your Atari Computer 

TRS 80 Color, I, ill, 4 or Apple Computer 
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daily earnings 
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Over 1000 Programs with Full Time Audio Narration, Pictures & Text! 

Interactive Tutorial Programs 



All along you've heard there isn't much of a 
selection of low cost microcomputer course- 
ware. Well, do you want to learn Physics, 
Psychology, or Philosophy? Accounting or 
Auto Mechanics? Sociology. Supervision or 
Statistics? Economics or Electronics? How 
about English as a Second Language? Would 
you like to teach your children Math or Read- 
ing? If you do, then we have the educational 
programs for you— and at affordable prices. 

It's true there aren't many companies that of- 
fer full-length courses in subjects other than 
reading and arithmetic, and what is offered 
seems to be drills, tests, games, or simula- 
tions. What you really want is a course that 
covers the subject with, say, 16 full-length 
lessons called tutorial programs, where you in- 
teract with an expert programmer backed by a 
staff of experts. That's exactly what we have. 

Is there something wrong with our software'' 
Well, we don't ask you to enter your name so 
we can drop it into some later text. We don't 
ask you to type in your answer and refuse to 
accept it if it's not spelled just right. And, we 
don't branch around a lot when you make an 
error. Our programs simply let you know if 
you're wrong by proceeding only when you 
select the right multiple-choice answer 

This proven learning-by-positive-reinforce- 
ment method lets you proceed quickly and 
smoothly through the programs, without a lot of 
cute tricks. But, if you're a devoted com- 
puterist or game freak you may be disap- 
pointed at the lack of motion in most of the pic- 
tures, or our special visual effects. We have 
some dandies, like the mushroom cloud that 
rises over Hiroshima in our History series, but 
your learning is not distracted by needless 
special effects. 

OVER 1000 PROGRAMS 

We have 64 courses of 1 6 half-hour pro- 
grams: 1024 programs! All are easy-reading, 
upper- and lower-case. All are in color. All are 
illustrated by frequent graphics composed of 
special and regular characters. And, best of 
all, every frame of every program is accom- 
panied by high-quality, full-time audio narration 
by professional voice talent David Stanton, 
James Mathers, Pam Barrymore. Recorded 
and played back, not synthesized or digitized! 



- If your child is having trouble with Reading or 
Math, or if he or she is exceptional, and 
could benefit from professionally program- 
iTied lessons or courses, then you need our 
educational programs for your Atari, Apple, 
or TRS 80 to help your child. 

-If you want to build your math skills, we have 
programs on Numbers and their meanings 
Addition. Subtraction. Multiplication. Divi 
sion. Fractions, Decimals. Percents. Angles 
Graphs. Word Problems. Algebra. Statistics 
There are ten series in all. 160 math pro 
grams. Again, all with color, pictures, and a 
friendly tutor's voice — all the time 

-If your verbal skills need polishing, try our 
Talk & Teach programs on the alphabet. 
spelling skills, and every level of vocabulary: 
Sight Words or Learn by Phonics: develop 
Reading Comprehension skills from stories 
and articles There's even a series on the 
Great Classics. 

-For self-development, try a 16-program 
course in Economics or Psychology. Or 
Supervision. Sociology. Counseling (Per- 
sonal. School, or Employee), Writing, 
Business. Philosophy, Government, World 
History, U S. History, or Accounting 



— For vocational skills, study our 16-program 
courses in Electronics, Fluid Power, Auto 
Mechanics, Shop, Carpentry, Construction, 
Meat Processing, Military Skills (64 pro- 
grams), and there are many more. 
There are 832 programs for your Atari, Apple 
and TRS 80 Mod I III '4 and 160 for the Color 
Computer Send lor a free catalog 

Would you like to do something more than 
play games on your computer? Tired of 
squeaks and robotics and want to hear a 
human voice? Do you want to further your 
education or help your children along in theirs? 
Now you can. For just $8.80, we'll send you 
one cassette with 2 programs from the course 
of your choice, 1 00°o guaranteed to work in 
your Atari, Apple, or TRS 80 computer, and 
you can try us out. Better yet, get one full 
course of 1 6 programs on 8 cassettes for only 
$59.90. Atah Master Cartridge, $9.95; Apple 
T/T Board, $99.00: and T/T Player, $79.00. 
That's less than books and tuition for most col- 
lege classes. And we offer a 1 day, 1 00% ex- 
change allowance. Does your alma mater? Send 
us your check, or call us at 1-800-654-3871 
with your Visa/Master Card number. We'll send 
your educational software pre-paid. Please 
allow 1 5 days delivery. Or see your computer 
dealer. He may have some of our courses in 
stock. You've got nothing to lose but your games! 



We're Your Educational Software Source. 



Course 


No. of Programs 


Reading 


256 


Mathematics 


128 


Comprehension 


48 


History 


32 


Algebra 


16 


Spelling 


16 


Government 


16 



16 Programs in each of the following: 

Carpentry-ElectronicsHealth Services 

Office Skills-Statistics-First Aid/Safety 

Economics-Business- Accounting-Psychology 

And Many More! 



For your Atari 400/600/800/1200, you will 
need the Atari cassette recorder and the Dorsett 
4001 Educational Master Cartridge, $9.95. For 
your Apple II, you will need the Dorsett M402 
T/T plug-in board, $99.00, and the M401 stereo 
cassette player, $79.00. All programs listed are 
available for TRS 80, I, III, 4, which require the 
M203 speaker converter, $99.00, and 401 
stereo cassette player, $79.00. 

Send lor a catalog ol over 1000 programs 
lor Atari, TRS 80, Apple, etc. 



For more information, write or call: TOLL FREE 1 -800-654-3871 

Dealer inquiries welcome | L-L~A ■ ^^^^0^5P''^n^n 

Educational Systems, Inc. 
P,0. Box 1 226, Norman, OK 73070 
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Griffin^ s 
Lair 

Educational 

Programs 

RevicTi^ 




by Braden E. Griffin, M.D. 



This month we are going to look at a couple of 
programs which deal with "computer literacy." This 
is a term frequently bantered about, and I am not 
really sure what it means. Kind of like the coach who 
was talking about one of his star football players and 
said, "He doesn't know the meaning of the word fear. 
Come to think of it, he doesn't know the meaning of 
a lot of words!" I do know that I am sick of those 
commercials which disdain "computerese." What a 
terrible word. Well, if you are one of those who think 
a benchmark is a basketball stigmata consisting of an 
indentation of the posterior aspect of the thighs, a 
result of endlessly waiting to enter the game, you are 
in big trouble. 

Anyway, here are two programs which may help 
you along the road to being more computer literate, 
no matter what your age or bias. They are both 
"mint," and I hope my reviews do them justice. 

SIMULATED COMPUTER II 

Carousel Software Inc. 

877 Beacon Street 

Boston, MA 02215 

32K Disk/24K Cassette $29.95 

Every month, ANALOG has at least one article 
with a game where the reader can type in a BASIC 
program listing (full of DATA statements), save it on 



disk or cassette, add a program which automatically 
boots the program, and eventually end up with an 
assembly language program which does not require 
BASIC. This allows the programmer to provide us 
with real-time simulations and arcade-style games 
which run thousands of times faster than BASIC. At 
the end of each of these articles is included the 
assembly language listing for those interested in see- 
ing how the program works. I am interested. I look, 
but I do not see. What I see is a lot of letters, a few 
numbers, and a plethora of semicolons. No problem. 
I will just learn about assembly language. Since this 
language speaks to the computer more directly than 
BASIC, i.e., does not require a translation every time 
a command is executed, understanding it should help 
me better understand how the computer works. So, I 
borrowed a few books and copied a few articles 
about assembly language and sat down in front of a 
fire ready to expand my horizons. The first thing I 
encountered was an explanation of numbering sys- 
tems. I once studied the binary system in school and I 
understand it. I can even convert a "real" number to 
a binary number, given enough time. (As you all 
know, we use the decimal system with the base 10 
because we have ten fingers. Computers use the 
binary system with the base 2, so they must have two 
fingers. I bet you can guess which two fingers the 
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computer has!) Just as I was getting a feel for binary, 
the author started talking about hexadecimal systems 
with a base 16. Whoa! I could go no further. Every 
time I tried to go on I was overwhelmed. I could not 
see the forest for the trees (to coin a phrase) — just 
too much detail. Hello, fire. 

Enter Simulated Computer II by Jim Wieder 
and Scott Steketee. Here is a program that shows 
how the computer works and, with unique simpli- 
city, introduces many of the concepts of assembly 
language. By using the decimal system and scaling 
down in other areas, this simulation provides an 
enjoyable way for children (ages 12 and up) to learn 
about the world of the computer. Twenty-four mem- 
ory locations are used instead of the thousands avail- 
able in a real computer. In addition, there are only 
eleven types of instructions. Most importantly, the 
instructions are executed at the rate of two per 
second, a veritable snail's pace. 







Simulated Computer 11. 

When the program is loaded, a screen display with 
all the major parts of the computer is seen. The 
INPUT DEVICE, a keyboard and monitor, is situ- 
ated in the upper left corner. As letters or numbers 
are entered from the actual keyboard, they are seen 
being typed by animated fingers and are displayed on 
the simulated monitor. The OUTPUT DEVICE is 
depicted as a printer. The CPU contains six boxes 
which show how the computer's "brain" maintains 
control. Below this is seen twenty-four boxes repre- 
senting the memory locations of the computer where 
instructions and numbers are placed. 

The eleven available instructions are represented 
by three-letter mnemonics. One has the capability to 
LDAxx, or load the accumulator (AC — where all of 
the arithmetic is done) with the value in memory 
location xx or, conversely, to STAxx, or store the 
value of the accumulator into location xx. ADDxx, 
SUBxx, MULxx, and DIVxx operations can be per- 
formed on the accumulator using stored values. One 



may input (INPxx), output (OUTxx), and jump 
(JMPxx) to and from various memory locations. SKP 
lets one skip instructions depending on the value in 
the AC. STP is the mnemonic for stop. 

When a program is written using these instruc- 
tions and then run, the fireworks begin. Before one's 
very eyes, electricity begins flowing between the dif- 
ferent system components through wires. Boxes light 
up with numbers and letters appearing and then 
rapidly changing. One has just witnessed a simula- 
tion of what happens in a real computer. Using the 
RUNSTP command, the program can be viewed one 
step at a time. The conversion of the mnemonic 
instructions to numbers is the first thing seen; e.g., 
LDA13 would be converted to 113. This means that 
operations code number l(LDA), the instruction 
which loads the accumulator, is to be executed with 
the value found in memory location 13. Then the 
program counter (PC) is set to the first instruction 
and FETCHes it from the memory location "pointed 
to" by the PC. The instruction is then placed in the 
instruction register (IR), the program counter is 
incremented (INC), and then the instruction is 
EXECuted. This process continues until the program 
is completed. Pretty nifty, huh? 

(Continued on page 25) 
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ATARI SINGS YOUR FAVORITE SONGS!!! 

THE Original VOICE BOX Speech Synthesizer by the ALIEN GROUP has received rave reviews; 

MICRO COAAPUTING-"The VOICE BOX injects an endearing personality to your computer. The possibilities are enormous." 

COA/\PUTE-"The VOICE BOX offers more human-like tones and does not blank out the screen." ;r ^^^ 

CREATIVE COMPUTING-"English text and phonetic code may be 

freely intermixed rather than requiring separate modes as is the case . ■ •■ . 

without exception with every other speech system. A mode called 

talking face displays an animated face with impressive lip sync ■ 

animation." 

ANTIC-"There is a great potential for teaching children to spell and t 

an added dimension to games overall. I believe the VOICE BOX is 

well worth the price tag." 

ANALOG— "For ATARI owners who want to add speech to their 

programs, the Alien Group VOICE BOX is probably the best j, 

choice." 

POPULAR SCIENCE-"The speech quality is excellent. Besides 

creating speech, the software has a bit of fun with graphics." 

and on the new VOICE BOX II '- ' 

TIME MAGAZINE-"Machine of the Year" "The VOICE BOX by the 
Alien Group enables an ATARI to say aloud anything typed on its INCORPORATE THE SINGING HUMAN FACE 

keyboard in any language. It also sings Amazing Grace and INTO YOUR PROGRAMS AND GAMES 

"When I'm 64" or anything else that anyone wants to teach it. 





VOICE BOX II 
Speech & Singing Synthesizer 



To order by mail send a check or money order to the ALIEN GROUP 
for $169. 



THE ALIEN GROUP 
27 West 23rd Street 
New York, NY 10010 



(212)741-1770 



The New VOICE BOX II for ATARI plugs into the serial port of the ATARI 
400/800 with sound coming out of the TV/monitor. 48K DISK is re- 
■ifmmttr quired. It has all of the features of the original VOICE BOX plus many 
exciting new hardware and software features: 

• The ability to sing with voice and 3 port music. 

• A library of 30 famous songs. 

• A comprehensive music system that allows the user to easily enter or 
modify new songs. 

• Software that can convert the bottom two rows of the ATARI keyboard 
into a piano with a range of 3'/2 octaves using the shift and control 
keys. 

• Programmable musical sound effects such as tremolo, vibrato, glis- 
sando and click track. 

• A singing human face with lip-sync animation designed by Jerry 
White 

• A talking orsinging ALIEN face with software that allows the user to 
change the face and 8 mouth patterns as he sees fit. 

• The ability to speak with inflection and feeling. 

• Can speak in a foreign language with correct foreign spelling as 
input. 

• A talk and spell program by Ron Kramer Users con program any 
vocabulary for this spelling game. In fact, this program con even 
speak in a foreign language like French, where the user must spell 
the correct word in English, or vice verso. 

• GREEN GOBLINS-A talking arcade game by John Wilson. 

• Random Sentence Generator-An amusing grammar game that 
helps teach schoolchildren to identify parts of speech and recognize 
a variety of sentence structures. 

• NUMBER SPEAK-A subroutine by Scott Matthews that converts up to 
a 9 digit number Into normal English pronunciation. Ideal for build- 

OUP ing your own math games. 

• STUD POKER-A talking poker gome by Jerry White. 

• The screen never blanks out while talking or singing. 

• Singing or speaking subroutines can be incorporated into your 
programs, requiring as little as 100 bytes of RAM plus 5 bytes for 
each word. 

• Price $169.00 includes VOICE BOX II and all of the above software. 

• Inquire about our discounts for educational institutions. 



ALSO AVAILABLE AT LEADING COMPUTER STORES THROUGHOUT THE WORLD. 

Atari is a registered trademarl< of Warner Communications. 
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An extensive tutorial leads one through the pro- 
gramming process in a most painless fashion. The last 
four memory locations have special functions which 
permit one to use sound, color, and even turtle gra- 
phics. The instructions are easily understood and 
quite explicit in explaining the capabilities of the 
computer. There is a section with examples, challeng- 
ing one to write a program which draws a square 
spiral, evaluates an algebraic expression, or makes 
decisions. Sample solutions to these and other prob- 
lems are appended. Error messages are included and, 
as an integral part of the operations, add further 
realism. The use of a joystick is also optionally 
provided. 

Simulated Computer II is easy to use, fun to 
play with and educational to boot. It is not intended 
to teach assumbly language. It does, however, allow 
you to grasp the concepts of how it is used and how 
the computer follows these instructions. In spite of 
occasional grammatical errors in the accompanying 
booklet, this is an excellent product and well worth 
the investment. I still have no intention of competing 
with my son's idol, Tom Hudson, but at least now I 
will know what he is talking about. Now, if I only 
could find out why he buries all those symbols denot- 
ing string variables — $$$$ ! 

D-BUG 

ELECTRONIC ARTS 
2755 Campus Drive 
San Mateo, CA 94403 
48K Disk $35.00 

The name Electronic Arts is quickly becoming 
synonymous with quality. This educational game, de- 
signed and programmed by Childware, does nothing 
to lessen this reputation. 

When D-Bug is booted, the first thing to appear is 
the system screen comprised of the various parts of a 
computer. One has the option of selecting the two 
player game, or competing against the computer. One 
of three characters is chosen: Moe Dam, Dot Matrix, 
or M. A.X. the Robot (my personal favorite). If the 
computer is the opponent, it assumes the role of a 
fourth character, Charlie Fixit. Coincidentally, at the 
continually remodelled home of ANALOG, Charlie 
is the one I always am seeking out to "fix it." At this 
point, one has the opportunity to move to the differ- 
ent sections on the screen and, with one push of the 
joystick button, may enter and explore the individual 
system components. Moving to GAME on the con- 
trol panel allows one to begin playing. 

Gotcha! 

Not to be confused with the familiar and nervously 
anticipated golf handicap. Gotcha! is a simple board- 
style game with the object being to capture or force 
an opponent to capture particular shapes. Using the 
joystick to maneuver, points are awarded every time 
one's own shape is captured. Suddenly, while you're 



engrossed in manipulating the enemy into a compro- 
mising position, the screen flashes and bizarre things 
begin to happen. Something has gone awry inside the 
computer. In order to continue the game, the player 
must locate the problem and repair it. Here is where 
the debugging takes place. 




D:BUG. 

In the beginner levels, the game screen, showing 
the symptom, alternates with the system screen 
which is flashing the specific area containing the bug. 
For example, the game screen may be missing the 
bottom middle third of its display, and the MEM- 
ORY section of the system screen will be seen flash- 
ing brightly. One enters the problem area with the 
previously selected character and moves over each 
part. If the part is loose, the character will have a gray 
flicker. This is easily fixed by jumping up and down 
on the affected part, a feat accomplished by position- 
ing the character on it and pressing the joystick but- 
ton. If a red flicker appears, the part is "hot" and 
must be replaced with a new one purchased at Charlie 
Fixit's Store. Sometimes, one gets no flickering, and 
a tester must be "rented. ' ' In this case, a part has gone 
bad, and using the tester is like buying a new replace- 
ment. There is a time limit for each repair job, and if 
it is exceeded before the job is completed, one's 
opponent has a chance to fix it. If the problem cannot 
be found, or if neither player can fix it, Charlie may 
be hired to do the job, but at a very high cost (ahem!). 
If the computer is the opponent, it gets to use Charlie 
for free. As the levels of difficulty increase, fewer 
hints are provided. In level 3, the flashing of the 
section containing the bug is eliminated. Level 4 adds 
to this difficulty by creating more than one bug at a 
time. The most difficult level, the fifth, provides no 
gray or red flickers, requiring the player to find loose 
and hot parts based solely on the symptom seen on 
the game screen. 

(Continued next page.) 
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Pffft! 

There are seven areas within the computer where 
problems may arise. "Snow" flickering on and off 
the screen may be due to a loose monitor cable, or a 
boot error may result from a faulty disk drive door. 
These bugs in MONITOR and DISK DRIVE are 
fixed on the main system screen. The difficulty may 
be in the POWER SUPPLY, where a bad fuse or 
clogged filter may be the culprit. The MEMORY 
section contains eight RAM chips, each of which 
produces its own symptom if found to be bad. The 
CPU contains the VLSI (Very Large Scale Integra- 
tion) chip, and if it is loose, all kinds of bad stuff can 
happen. The other three sections, SOUND, I/O, and 
GRAPHICS, all contain a variety of chips (LSI and 
ROM) which may go on the blink. 

Power surges, or "transients," may appear at any 
time and begin to chase one's character. If caught, the 
character becomes charged with static electricity. If 
this happens too often, it may build up to the point 
where simply touching a chip may cause it to ' 'blow. ' ' 
The static charge build-up may be dissipated by 
entering the POWER SUPPLY area and touching the 
GROUND symbol. 

Additional features include the ability to change 
the graphic characters in Gotcha!, initially butterflies 
and boats, by entering the GRAPHICS seciton. The 
sounds contained in D-Bug may also be changed by 
entering the area that controls this function. It is 
possible to play the game without interruptions by 
selecting the NO BUG control. The game itself is not 
all that exciting, so this is a seldom used option. 

What the fool? 

A frequently encountered problem in educational 
programs is that the disaster which occurs when a 
wrong answer is given — like the screen blowing up, 
or being eaten by a monster — may be more exciting 
than a correct answer. Young children sometimes 
purposely make mistakes just to see the consequen- 
ces. In this program, the problem must be righted if 
the bug appears during one's turn. Because of the 
cost of parts and time, the debugging process deducts 
points from one's total. If one were to make quick 
selections during the Gotcha! game, the odds seem to 
favor the bug occurring during the opponent's turn. 
This is particularly true when playing against the 
computer. Such strategy would enable a player to 
build up points during the game phase while the 
opponent sacrifices points repairing the bug. The 
only problem is that it is much more fun (and educa- 
tional) to search for and repair bugs than it is to 
watch someone else do it. Consequently, I found my 
children (and me!) slow-poling during the game just 
so the bug would occur while it was still their turn. I 
am not sure if this is a shortcoming or not. While it 
may eliminate some of the competitive edge, it may, 
in turn, enhance intellectual pursuit. 



The educational goals of this package are numer- 
ous. Learning the names of the different parts of the 
computer and what functions they control will cer- 
tainly be achieved. The development of deductive 
reasoning skills by working from symptom to cause 
is definitely encouraged. Children ten years and 
older will be able to use D-Bug with little difficulty. 
Superb graphics and an innovative approach make 
D-Bug an outstanding educational tool for kids o 
all ages. It is exciting and fun. So much so, they wil 
never suspect that it is educational. Sometimes, we 
have to fool them into learning. Big Bird does it al 
the time — D-Bug will too. D 
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MOVING? 

DON'T MISS A SINGLE ISSUE. 

Let us know your new address right away. At- 
tach an old mailing label in the space provided 
and print your new address where indicated. 

QUESTION ABOUT 
YOUR SUBSCRIPTION? 

Check the appropriate boxes below: 

n New subscription. Please allow 4-8 
weeks for your first copy to be mailed. 
D Renewal subscription. Please include 
a current address label to insure prompt 
and proper extension. D 1 -year $28.00. 
Ttiis rate limited to the U.S.A. and its 
possessions. D Payment enclosed or 
D Bill me. 
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FLYTHEUNFRIENDLYSKIES. 



•2--[} 


SKIE 








Shooting down the menac- 
ing and constantly multiplying 
Threads isn't easy, but it's only 
one of the challenges in this 
official computer game version of 
Anne McCaffrey's famous book 
series. 

Your strategy will be put to 
the test as you try to negotiate alliances with Item's Lord 
Holders in an attempt to form the most powerful Weyr 
on the planet. Should you take a firm stance or compro- 
mise? Will asking a Craftmaster for assistance increase 
your chances for success? Maybe you should invite prospec- 
tive allies to a Wedding or even a Dragon Hatching. 
Remember to check the Lord Holders personality traits 



mm ImMtHatidil^ 



first. It may be critical to your success. 

Numerous screens combine to create truly 
unique and challenging game play. There's even a 
practice screen to sharpen your Thread Fighting 
skills. 

If you liked the books, you'll love the game. 
After all, how often do you get the chance to actually 
fly a dragon? 

One to four players, joystick and keyboard 
controlled. 





Strategy Games for the Action-Game Player 



CIRCLE #117 ON READER SERVICE CARD. 



PAGE 28 



ANALOG COMPUTING 



ISSUE 18 




Boot 



Camp 



by Tom Hudson 



Before beginning my regular Boot Camp ma- 
terial, I'd like any users of the MAC/65 assembler 
to take a look at this issue's HBUG debug package 
(see page 78). 

I received a letter from Allen J. Henninger of 
Linden, PA in January. He informed me that most of 
the Boot Camp examples failed to operate properly 
when he used MAC/65 's debug utility, BUG/65 . 1 
looked into the problem and, sure enough, Mr. Hen- 
ninger was right. 

When using BUG/65, BRK instructions cause a 
fatal system crash. Programs executing infinite loops 
can only be stopped via the SYSTEM RESET key. 
There are ways to circumvent the BRK lockup prob- 
lem, but there's no way to stop an infinite loop and 
find where the program was executing. 

If you use MAC/65, I strongly suggest that you 
type in HBUG. It'll help you check the operation of 
the programs shown in Boot Camp, avoiding nasty 
lock-ups. 

The solutions. 

If you solved last issue's multi-byte math prob- 
lems, give yourself a pat on the back. Successful 
completion of these programming puzzles indicates 
that you're well on your way to becoming proficient 
in 6502 assembly language. 

Whether you solved the problems or not, take a 
look at the following possible solutions. There are 
many ways to solve any programming problem, and 
these examples may show you a different approach. 




le «=$68e 




28 SED 


;DECirML mDE 


30 LDA OLDBAL 


;GET LOW BYTE 


40 SEC 


; FIRST SUBTRACT 


50 SBC MITHO 


; SUBTRACT LOU 


60 STA NEHBAL 


; STORE RESULT 


70 LDA 0LDBAL41 


;GET HET> BYTE 


80 SBC HITHD+1 


; SUBTRACT MED 


90 STA NEISAL+l 


; STORE RESULT 


0100 LDA OLDBAL+2 


;GET HI BYTE 


0110 SBC tm 


; SUBTRACT DUWIY 


0120 STA NEMBAL+2 


; STORE RESULT 


0130 BRK 


;ALL DONE! 


0140 OLDBAL .BYTE ' 


»73,|86,S10 


0150 MITHD .BYTE i 


»85,$42 


0160 NEHBAL »=»+3 




0170 .END 





Figure 1. 

Figure 1 shows the solution to the first problem 
given last month. You were asked to subtract the 
two-byte BCD variable WITHD from the three-byte 
variable OLDBAL, placing the result in the three- 
byte variable NEWBAL; OLDBAL = 108673 and 
WITHD = 4285. 

As you can see from Figure 1, both OLDBAL and 
WITHD are defined using the .BYTE directive. 
Standard data storage formats are used, so the values 
are defined from low-order to high-order. That is, 
108673 is defined as .BYTE $73,$86,$10. The vari- 
able NEWBAL is simply set up as *=*+3, reserving 
three bytes for the result of the operation. 

The program itself uses the usual multi-byte 
subtract structure for the first two subtract opera- 
tions. The third subtract uses a "dummy" value of 
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zero for the third byte of WITHD, since it is one byte 
shorter than OLDBAL. This insures that any bor- 
rows from lower-order bytes will be processed 
properly. 

Try executing this program on your computer. 
After it is finished, examine the three-byte NEW- 
BAL to be sure it contains 104388 ( 108673 - 4285). 
NEWBAL is located at memory location $0622- 
0624. If you display these locations, you will see 
something like Figure 2. 

8622 88 43 18 

Figure 2. 

You will note that the number 104388 contained 
in NEWBAL is stored in low-order to high-order 
format, just like OLDBAL and WITHD. 

Solution two. 

The second problem I assigned last month asked 
you to subtract each byte of the ten-byte TABLE2 
from the corresponding byte of TABLE 1, placing the 
results in the ten-byte TABLE3. The initial values for 
TABLE 1 and TABLE2 are: 



TflBLEl .BYTE 518,518,548,586,590 

.BYTE 5fle,SBC,5ce,5Ffl,5F8 

TABLE2 .BYTE 588,588,514, 52F, 53fl 

.BYTE 598,586,522,565,578 



If you're still having trouble with multi-byte math, 
go back and re-read last issue's column. It may also 
be a good idea to review the math basics from 
ANALOG #15's Boot Camp. 

Ups and downs. 

There are two handy instructions we haven't 
covered yet that can sometimes be considered math 
instructions. These are INC (increment memory by 
1) and DEC (decrement memory by 1). 

INC n (ZERO PAGE) 

INC nn (ABSOLUTE) 

INC n,X (ZERO PAGE INDEXED X) 

INC nn,X (INDEXED X) 

DEC n (ZERO PAGE) 

DEC nn (ABSOLUTE) 

DEC n,X (ZERO PAGE INDEXED X) 

DEC nn,X (INDEXED X) 

The INC instruction simply adds 1 to the value 
contained in the memory byte referenced and places 
the result back into the memory location. The 
accumulator is not affected, but the SIGN and ZERO 

(Continued on page 31.) 



If done properly, TABLE3 should contain the fol- 
lowing values when the program is finished: 

518, 518, 52C, 557, 588, 518, 5B1,59E, 588,588 

A possible solution to this problem is shown in 
Figure 3. 



BINARY MODE! 

18 BYTES TO DO 

GET BYTE 1 

5INGLE-BYTE! 

SUBTRACT BYTE2 

AND STORE IT 

NEKT BYTE 

00 ALL 18 BYTES 
[ALL DONE! 
518, 548, 586, 59A 
5BC,5C8,5F8,SF8 
588,5l4,52F,59A 
586,522,565,578 



18 


*=5688 


28 


CLD 


38 


LDK «9 


48 SUBLP 


LDA TABLE1,X 


58 


SEC 


68 


SBC TA6LE2,H 


78 


STA TA6LE3,K 


88 


DEK 


98 


BPL SUBLP 


8188 


BRK 



8118 TABLEl .BYTE 5l8, 
8128 .BYTE 5A8, 

8138 TABLE2 .BYTE 588, 
8148 .BYTE 598, 

8158 TABLE3 »=»HH8 
8168 .END 



Figure 3. 

As you can see from Figure 3, this problem can be 
solved by simply indexing through all ten bytes of 
the tables in the loop SUBLP. Within this loop, the 
X register points to the desired byte of each table. 
Each time the loop is executed, the byte from 
TABLE2 is subtracted from the corresponding byte 
of TABLEl, and the result is placed in the proper 
location in TABLE3. Note that each subtract is pre- 
ceded by the SEC (set carry) instruction, so that the 
subtracts will be treated as single-byte operations. 



SUPERIOR QUALITY 

PERIPHERALS Convologic 



The BYTEWRITER is a multi-use EPROM burner that interfaces 
to your computer through joysticl( ports 1 and 2 or 3 and 4 (software 
selectable). The BYTEWRITER reads, writes and verifies EPROMS: 
2516, 2716, 2532, 2732, 2564, 2764, 68764, 27128. No personality 
modules. Will read operating system ROMS. 

Operational software will support inspect and change, constant 
store, cassette and disk I/O. Source Code available for )^5.00. 

BYTEWRITER - $1 89.00 

The BYTEREADER option interfaces cartridges to BYTEWRITER. 
BYTEREADER - $30.00 

The NEW 1850 expansion unit provides a versatile interface be- 
tween your 400/800 and peripherals. Residing on the SIO bus with 
your disk and/or cassette drive, it can provide for communication to 
Centronics compatible printers and RS-232 asynchronous devices, 
such as a modem. An internal 2K buffer region is allocated to meet 
the requirements of printer and serial activity. 

NEW 1 850 - $1 49.00 

Cartridge boards dual socketed for 2764's, to make 8K or 16K - 
Cartridges - $7.50, Shells for cart. $5.00, 2764 EPROM - $1 0.00. 
Ask for free brochure. 



Each accessory is fully assembled with a 90 Day Limited Warranty. Mail Cashiers Check or 
Money Order lor 4 lo 6 weeks delivery. Shipping and handling S4.00 domestic, S6.00 foreign, 
C.O.D. orders S3.00 extra S30.00 minimum order to: 

_._ ORDERS ONLY 

rQr\Jt7aLaGir.ifyr. '■T,'',i2r 

Send for FREE Brochure - Dealer Inquiries Encouraged. 
421 Bay Tree Lane, Longwood, FL 32779, (305) 869-6630 
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WHAT IS 
D:CHECK/C:CHECK? 



Most program listings in ANALOG are followed by a table of numbers appearing as 
DATA statements, called "CHECKSUM DATA." These numbers are to be used in conjunc- 
tion with D:CHECK and C:CHECK, which appeared in the ANALOG Compendium and 
Issue No. 16. 

D:CHECK and C:CHECK are programs by Istvan Mohos and Tom Hudson. They are 
designed to find and correct typing errors when entering programs from the magazine. 
For those readers who do not have a copy of either article, send a pre-addressed, 
stamped, business-sized envelope to: 

D:CHECK ARTICLE 
P.O. BOX 23 
WORCESTER, MA 01603 





Some program listings reproduce 


d in A.N. A.L.O.G. may contain "strange" characters not shown on | 




the ATARI keyboard. 


These are 


special characters 


which use 


the CTRL, ESC and "ATARI LOGO" | 




(INVERSE) keys. 


Shown below 


is a list of these characters 


and the keystrokes used to 


get them. D 1 


« 





CTRL 


F 










■ 





INVERSE 


CTRL 


H 


\- 





CTRL 


A 




L 


CTRL Z 




■ 





INVERSE 


CTRL 


n 


i 





CTRL 


B 




t — 


ESC E5C 




1 





INVERSE 


CTRL 





J 





CTRL 


C 




♦ 


ESC CTRL UP-ARROH 


B 





INVERSE 


CTRL 


p 


■i 





CTRL 







♦ 


ESC CTRL DOHN 


-ARROW 


n 





INVERSE 


CTRL 


a 


"1 





CTRL 


E 




* — .- 


ESC CTRL LEFT 


-ARROW 


jj 





INVERSE 


CTRL 


R 


/ 





CTRL 


F 




•» 


ESC CTRL RICHT-ARROU 


■t 
•i 





INVERSE 


CTRL 


5 


\ 





CTRL 


G 




♦ 


CTRL . 




c 





INVERSE 


CTRL 


T 


i 





CTRL 


H 




* 


CTRL ; 




■ 





INVERSE 


CTRL 


U 


■ 





CTRL 


I 




IS 


ESC SHIFT CLEAR 


1 





INVERSE 


CTRL 


u 


k 





CTRL 


J 




i — 


ESC BACK S 




■■ 





INVERSE 


CTRL 


H 


■ 





CTRL 


K 




* — 


ESC TAB 




■■ 





INVERSE 


CTRL 


K 


■ 





CTRL 


L 




c 


INVERSE CTRL 


jr 


1 





INVERSE 


CTRL 


V 


"■ 





CTRL 


H 




i: — 


INVERSE CTRL 


A 


u 





INVERSE 


CTRL 


Z 


_ 





CTRL 


N 




1 — 


INVERSE CTRL 


B 


□ 





ESC DELETE 




■ 





CTRL 







'J — 


INVERSE CTRL 


C 


□ 





ESC INSERT 




•» 





CTRL 


P 




:i — 


INVERSE CTRL 


D 


B 





ESC CTRL TAB 


CCLR] 


r 





CTRL 







n — 


INVERSE CTRL 


E 


B 





ESC SHIFT TAB I5ETJ | 


— 





CTRL 


R 




^ — 


INVERSE CTRL 


F 


■ 





INVERSE 


SPACE 1 


+ 





CTRL 


5 




^ — 


INVERSE CTRL 


G 


■ 





INVERSE 






• 





CTRL 


T 




r — 


INVERSE CTRL 


H 


a 





INVERSE 


CTRL 


„ 


■i 





CTRL 


U 




r — 


INVERSE CTRL 


I 


Q 





INVERSE 


CTRL 


J" 


1 





CTRL 


V 




1 — 


INVERSE CTRL 


J 


II 





INVERSE 


1 




T 





CTRL 


u 




L — 


INVERSE CTRL 


K 


Q 





ESC CTRL 2 




J. 





CTRL 


X 




J — - 


INVERSE CTRL 


L 


U 





ESC CTRL BACK S | 


1 




CTRL 


V 










u 




ESC CTRL INSI 


ERT 1 
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flags reflect the result of the operation. Figure 4 
shows an example of the INC operation. 



10 


«=$06O8 




20 


LDA ttS 


;5 IN ACCUHULATOR 


30 


5TA VALUE 


;AND IN VALUE 


40 


INC VALUE 


; VALUE = 6 


50 


IHC VALUE 


; VALUE = 7 


60 


INC VALUE 


; VALUE = 8 


70 


BRK 


;ALL DONE! 



80 VALUE »=»+! 



90 



.END 



Figure 4. 

This program will place the value 5 in the accumu- 
lator and the location labeled VALUE. It then 
increments VALUE 3 times. When finished, the 
accumulator will still contain 5, but VALUE will 
contain 8. 

If the INC operation is performed on a byte con- 
taining $FF, the byte's value will "wrap around" to 
zero. Note that this instruction is not a true math 
instruction because the carry resulting from the byte 
wraparound is NOT shown in the status flags. 

The DEC instruction is similar to the INC instruc- 
tion, but operates in reverse. Instead of adding 1 to 
the value of the byte, DEC subtracts 1. Figure 5 
shows an example of the use of the DEC instruction. 



10 
20 
30 
48 
50 
60 



»=S60O 
CLD 

LDA ttS 
5TA COUNT 
LDA m 
STft ADDVAL 



70 LOOP LDA ADDVAL 
80 CLC 
90 ADC ADDVAL 
8100 STA ADDVAL 
0110 DEC COUNT 
0120 BNE LOOP 
8138 BRK 
8148 ADDVAL »=»+l 
8158 COUNT »=»+l 
0160 .END 



; BINARY MODE 
;5ET COUNTER. . . 
;T0 5 

;5ET ADDVAI 

;T0 7 

;GET ADDVAL 

J SINGLE-BYTE ADD 

;ADD TO IT5ELF 

jSAVE RESULT 

;HIT ZERO YET? 

;N0! LOOP BACK 

;ALL DONE! 



Figure 5. 

In Figure 5 , we're using the variable COUNT as a 
simple counter to control the addition of ADDVAL. 
We will add ADDVAL to itself 5 times. When fin- 
ished, ADDVAL will be multiplied by 32. Let's walk 
through this example. 

Line 20 clears the decimal mode so that we'll 
be working in binary mode. 

Lines 30-40 initialize COUNT to 5. 
Lines 50-60 initialize ADDVAL to 7. When 
complete, this program will multiply 7 by 32, 
with a result of 224 ($E0) in the accumulator. 
Lines 70-100 add ADDVAL to itself, plac- 
ing the result back in ADDVAL. This has the 
effect of multiplying ADDVAL by 2 each time 
it is done. 

Line 110 decrements COUNT by 1. When 
COUNT reaches zero, the ZERO flag will be set. 
This will be our signal to stop. 



Line 120 checks the ZERO flag to see if all 
five multiplies have been done. If the ZERO flag 
is NOT set, the program will branch (BNE) 
back to the label LOOR 

Line 130 BREAKS the program when all 
five iterations of the loop are complete. 

Lines 140-150 define the one-byte storage 
areas ADDVAL and COUNT. 
As you can see, the INC and DEC instructions can 
come in handy when you need a counter or want to 
add or subtract without affecting the accumulator. 
We have used the X and Y registers to perform 
counter functions, but if these registers are in use, 
you can always set up a byte and use the INC and 
DEC instructions instead. 

Bit-flipping. 

When you get deeper into assembly language, 
you'll need to manipulate bytes in ways that BASIC 
can't. Now we'll look at four instructions that allow 
a wide variety of ways to manipulate and test the 
contents of the accumulator. These instructions are 
AND, BIT, ORA and EOR. 



BYTE 1: 
GEE BYTE 2! 



01181811 
18118881 



RESULT: 00100081 
Figure 6. 

Figure 6 shows how the AND function works. As 
you can see, two bytes are used as inputs to the 
function. The corresponding bits of these two bytes 
are examined. If the bit of the first byte is 1 AND the 
bit of the second byte is 1, the result for that bit will 
be 1. Otherwise, that bit of the result will be set to 0. 
This process is repeated for all eight bits. 

In 6502 assembly language, the AND function has 
the following eight formats: 

AND #n (IMMEDIATE) 

AND nn (ABSOLUTE) 

AND n (ZERO PAGE) 

AND (n,X) (PRE-INDEXED INDIRECT) 

AND (n),Y (POST-INDEXED INDIRECT) 

AND n,X (ZERO PAGE INDEXED X) 

AND nn,X (INDEXED X) 

AND nn,Y (INDEXED Y) 

In each of these formats, the accumulator is 
ANDed with the memory byte indicated in the 
operand. The result of the AND function is placed in 
the accumulator. The SIGN and ZERO flags are set 
according to the result. 

The AND function is most often used to mask off 
certain bits of the accumulator or test bits to see if 
they are on. 

Let's say you want to get a random number that 
does not exceed 7. You could use the code: 



PAGE 32 



ANALOG COMPUTING 



ISSUE 18 




pace 



Your "ONE STOP" Source 
for Computer Books 

You can rely on PACE (or ONE STOP shopping (or 
all your Micro Computer needs. We have thousands 
o( txx>k8, programs and accessories — covering all 
the major brands o( computers— even 60 different 
magazines! The ONE STOP friendly store. 



VISA/MASTERCARD ORDERS CALL (31 2) 595-3860 



BOOKS ON THE ATARI* I BOOKS ON THE ATARI'^ 



D EASY GUiDE TO 400/800 
4795-000125 160Pgs $ 7.95 

D BASIC EXERCISES 
4795-000101 251 Pgs $12.95 

D YOUR FIRST PROGRAM 
4795-000130 150 Pgs $ 9.95 

a COMPUTEI'S 1st BOOK of ATARI 
4105-000000 184 Pgs $12.95 

D INSIDE ATARI DOS 
4105-000002 108 Pgs $19.95 

n COMPUTEI'S 2nd Book of ATARI 
4105-000006 250 Pgs $12.95 

D COMPUTE'S 1st BOOK of ATARI 

GRAPHICS 
4105-000008 248 Pgs $12.95 

a MAPPING THE ATARI Explanations 
of Atari memory locations (400/800) 
4105-000009 194 Pgs $14.95 

D ATARI BASIC SOURCEBOOK 
4105-000015 296 Pgs SI 2.95 

D COMPUTEI'S 1st BOOK of ATARI 

GAMES 
4105-000014 232 Pgs $12.95 

D COMPUTERS FOR KIDS - ATARI 
4198-000022 72 Pgs $ 4.95 

a THE CREATIVE ATARI How-To 
for tfie beginner or expert. 
4198-000034 243 Pgs $15.95 

D 31 NEW ATARI PROGRAMS FOR 

HOME, SCHOOL AND OFFICE 
4080-000018 95 Pgs $ 8.95 

D101 PROGRAMMING TIPS AND 

TRICKS FOR THE ATARI 
4080-000022 126PgS $ 8.95 

D STIMULATING SIMULATIONS 

forthe ATARI 
4410-005197 118 Pgs $ 6.50 

D ATARI IN WONDERLAND 22- 
programs for learning and fun. 
4410-005771 139 Pgs $ 9.95 

D YOUR ATARI COMPUTER Com- 
plete fiow-to guide book. 
4665-000065 458 Pgs $17.95 

D ATARI GAMES & RECREATIONS 
BASIC techniques & educational games. 
4690-000242 338 Pgs S14.95 

n ATARI PILOT FOR BEGINNERS 
4690-000301 229 Pgs $14.95 

D INSIDE ATARI BASIC 
4690-003082 183 Pgs $12.95 

D THE VISICALC BOOK FOR ATARI 
4690-008393 298 Pgs $14.95 

D MOSTLY BASIC: ATARI Vol #1 
4760-022075 181 Pgs $12.95 

D MOSTLY BASIC: ATARI Vol #2 
4760-022092 $12.95 

D ATARI SOUND & GRAPHICS 
4925-009593 234 Pgs $ 9.95 



D PROGRAM WRITING WORKBOOK 
4080-000814 $ 4.95 

D 32 BASIC PROGRAMS for ATARI 

Business, educational and games. 
4250-000084 $19.95 

D HANDS ON BASIC - ATARI 
4525-049194 $19.95 

D KIDS & THE ATARI 
4560-000055 21 9 Pgs $19.95 

400/800 DISK GUIDE 
4665-000095 $ 7.95 

D INTRO TO ATARI GRAPHICS 
4665-000111 $16.95 

n THE ATARI ASSEMBLER 
4690-000236 $14.95 

D ATARI: A BEGINNER'S GUIDE 
4690-000271 $12.95 

D ATARI; A USER'S GUIDE 
'4690-000323 $15.95 

D ATARI BASIC 

4690-049791 $13.95 

D HOW TO WIN ATARI COMPUT- 
ER GAMES 
4768-049558 $ 8.95 

D EASY GUIDE TO 400/800 
4795-000125 $ 7.95 

D YOUR FIRST ATARI PROGRAM 
4795-000130 $ 9.95 

D ATARI BASIC 

4925-006496 $10.95 

D ATARI BAS 10 REFERENCE GUIDE 
Large card with all BASIC info needed 
4925-087041 $ 2.95 

D BASIC EXERCISES FOR THE 

ATARI 
4795-000101 251 Pgs $12.95 

D HOWTO USE ATARI COMPUTERS: 

An Introduction to 400/800/1 200 
4040-000235 65 Pgs $ 2.95 

D UNDERSTANDING GRAPHICS 
4040-000224 49 Pgs $ 2.95 

D BASIC CODING SHEETS - Graph 
sheets, pad of approx 40 sheets 
4080-000806 $ 2.95 



COMPUTER DUST COVERS 



For ATARI' 




D 41 08-000800 400 


$11.98 


D 41 08-000810 410 


$ 4.98 


D 41 08-000820 800 


$12.98 


D 41 08-000830 810 


$ 7.98 


D 41 08-000845 820 


$ 8.98 


D 41 08-000850 822 


$ 7.98 


D 41 08-000860 825 


$11.98 


4108-000865 825w/rk 


$11.98 


4108-000877 1200 


$11.98 



Also for: APPLE', COMMODORE', 
IBM', TEXAS INSTRUMENTS', 
RADIO SHACK" and MORE! 



NOW. . .PACE has two stores! Our main store, at 345 East Irving Park Road in 
Wood Dale, just West of O'Hare Airport, (phone 31 2-595-3860), and our new 
location at 1 FIRST NATIONAL PL/^ZA in Downtown Chicago, (phone 31 2-372-2464). 



USE THIS AD AS YOUR HANDY ORDER FORM 



TOORDER: Just check the block by the title of the book or item you want. Send, 
along with your NAME. STREET ADDRESS, CITY, STATE and ZIP CODE, and 
yourCertifisd Check, fVloneyOrder. Personal Check (allow 2weekstoclear),or 
your VISA or f^ASTERCARD NUMBER, EXPIRATION DATE and INTERBANK 
NUMBER (Mm Charge is $251 to. 



pa^m 



DEPARTMENT: A-C 
LOCK BOX 328, BENSENVILLE, IL60106 
micro toftware centers Phone: (31 2) 595-3860 



J 



Rease add $2,50 postage and handling on al 
Foreign orders add 10% (Minimum $5,00), 



orders. Illinois residents add 6% tax 



PLEASE SEND ME A COMPLETE BOOK S SOFTWARE LISTING FOR: 

DAPPLE' D ATARI' D COMMODORE' D IBM D RADIO SHACK' 
n TEXAS INSTRUMENTS' Q TIMEX '/S INCLAIR' O Other 



GETRND LDA RANDOH 
CHP tt8 
BCS GETRND 



This code gets a random number and checks to see 
if it is greater than 7. If it is, the program loops back 
to GETRND and tries again. This routine works, but 
it ma'y need to try several times before it gets a good 
value. 

We can perform the same function easily with the 
AND instruction. By using the AND instruction, 
only one try is necessary. It even takes less memory 
than the previous example. The code is: 



LDA RANDOM 

AND tte? 



This code MASKS the contents of the accumula- 
tor with the value 7. Figure 7 shows three possible 
outcomes of the procedure. As you can see, none of 
them exceed 7. 



BVTE: 10811181 

EEE MA5K: OOOflOlll 

RESULT: 08808101 = 5 



BYTE: 11110111 

GEH MA5K: 00000111 

RESULT: 08688111 = 



BYTE: 88818880 
EXE MASK: 80800111 

RESULT: 88888886 = 6 



Figure 7. 

This is just one example of the use of the AND 
operation. We'll cover more uses in the future. 

A companion to the AND function is the BIT (bit 
test) instruction. It performs almost the same func- 
tion as AND, but changes only the status flags. BIT 
does not affect the contents of the accumulator. The 
primary function of the BIT operation is to test the 
contents of the accumulator. BIT has the following 
formats: 



BITnn 
BITn 



(ABSOLUTE) 
(ZERO PAGE) 
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Besides not changing the accumulator as a result of 
the AND operation, BIT handles the status flags 
differently. The ZERO flag is handled the same as 
AND. The SIGN and OVERFLOW flags are set to 
bits 7 and 6 of the operand, respectively. This is a 
strange twist, and I've not yet encountered a situa- 
tion where I've used this odd flag setting. The follow- 
ing code shows a typical use of the BIT instruction. 
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HIGH QUALITY 
PRODUCTS AT 
AFFORDABLE PRICES 



As Easy As Falling Off . . . 

niOG COMPUTING 

Dealer and distributor inquiries invited. 



ADVANCED SOFTWARE 
DESIGNS FOR HOME 
COMPUTERS 



We at ALOG Computing wish to thank you for the response you 

have given us on our first product the ALOG Pagewriter. (See 

Comments) Now we have two other utility programs available for 

Atari Home Computer users. We have tried to make them simple and 

fun to use. We hope you enjoy them. 

All our programs work on ATARI 400/800, 800XL, and 1200XL 

computers. 

THE ALOG PAGEWRITER 

Turns your ATARI computer and 80 column printer into a very easy to use electronic 
typewriter. Because the entire page layout is displayed while the user is typing and 
editing, the ALOG PAGEWRITER is ideal for simple word processing tasks such as 
letters, notes, memos, or the kid's book reports and term papers. The average 
learning time is about five minutes. 

KEY FEATURES 

• Uses standard Atari editing keys (e.g. INSERT, DELETE, TAB, etc.) • A HELP screen 
with command summary • Visible and fully adjustable margins • FILL command for 
right justification • Automatic return option (with word moving) • Line 'Split' and 
'Splice' commands • Store 10 pages with no disk swapping • Not copy protected 

REQUIRED EQUIPMENT: 

• At least 32K of RAM • One disk drive • 80 column printer 

THE ALOG DISPLAYMAKER 

A versatile color graphics program in Forth that you can use for making graphs, charts, 
displays or just have fun drawing pictures. 

KEY FEATURES 
Graphics Mode: • Circles, Ellipses, Rectangles • "Rubber Band" lines • Semi- 
automatic fill • Color pallette for easy variation • Zoom magnification 
Text Mode:* Three sizes of characters • Three colors • Regular ATARI characterset 

• Special character set • "Built-in" character editor (gives unlimited number of 
characters) 

Disk Storage of 8 displays 

"Slide Show" display features 

Graphics dump to many dot graphics printers 

(2 sizes) — Epson*, Gemini 10, Prowriter and others. 

"requires Graphtrax option 

REQUIRED EQUIPMENT 

• At least 48K of RAM • One disk drive • Optional (joystick and graphics printer) 

THE ALOG MAILLIST 

A simple, easy to use data base program specifically designed for making and keeping 
mailing lists and printing out mailing labels. 

KEY FEATURES 

• Multilevel fast search and sort • Complete disk utility package • Split & merge files 

• Supports 1 or 2 disk drives* Prints continuous form labels 1 to2 inches high • Uses 
standard ATARI Editing Keys • Holds 130 records in memory and 500 records per 
disk • Make your own backup copies 

REQUIRED EQUIPMENT 

• At least 32K RAM (48K recommended). • One disk drive (works fine with two) of 
any manufacture that works with ATARI DOS 2.0S • ATARI BASIC Cartridge • ATARI 
DOS 2.0S • A printer with adjustable tractor feed. 



COMI\/IENTS 

from users of the Alog Pagewriter (used 
with written permission) 

"Great product. I wrote two pages the first time 
I sat down with it. I wish I had it a couple of 
years ago. " 

James Tanaka, Monterey Park, CA 

"Refreshingly simple but adequate word 

processor at an affordable price — good work. " 

Jay Carccarese, San Jose, CA 

"Super, lama Valforth programmer and I love 
it. " 

P.R.S., San Antonio, Texas 

"Good, simple text processor for letters — great 
to he able to back up master disk. " 

Larry Cox, Floyds Knobs, IN 

"Excellent, it makes letter writing a dream. " 
M.H., Oaktown, VA 

"Great price and easily learned. " 

Noel Brooks, Great Falls, MT 

"As I have used PA GEWRITER I have grown 
to love it. After using WORDSTAR and 
LETTER PERFECT a truly user kind word 
processor is a wonderful experience. " 

"One feature which I feel sets it apart from all 
others is the capability to visualize the page. 
This feature is indispensable when designing 
tables for a report. " 

"Thanks again for an excellent piece of 
software. " 

John C. Goodman, Marblehead, PA 

"Excellent for one or two pages of text. It's 
simple. " 

Richard E. Lane, Vandenberg AFB, CA 

"Very Easy to use. It's very useful for letters" 
Florian C. Pulver, Riverside, California 

"/ have found your product to be quite easy to 
operate and understand, both in the written 
instructions and manual operation. I have the 
ATARIWRITER and BANK STREET 
WRITER and I find myself using your product 
more than either one of these two products. " 

"I have also found that for the price of your 
product versus that of the other companies that 
your product has paid for itself twice over. " 
Edward Locke, Mentor, OH 

"Very easv to use and perfect for mv needs. " 
J.B. Karluk, Throop, PA 



All programs are only $39.95 each. To order direct send check or nnoney orderto ALOG Computing, 
1040 Veronica Springs Road, Santa Barbara, CA 93105. We pay shipping. For information, credit 
card orders or C.O.D., call our distributor: COIVISTAR (805) 964-4660. 
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LDft BYTE 
BIT TE5TBT 
BNE BITON 



BITON 



BYTE »=#+l 
TESTBT .BYTE SGI 
.END 



This code uses the bit mask TESTBT to see if the 1 
bit of the memory location labeled BYTE is set. The 
value contained in BYTE is placed in the accumula- 
tor, then the BIT instruction is executed. Since 
TESTBT is the location used by the BIT operand, the 
accumulator will be ANDed with $01. If the 1 bit of 
the accumulator is set, the result of the BIT opera- 
tion will be a NOT EQUAL condition. In this case, 
the BNE instruction would cause the program to 
branch to the location BITON. Otherwise, the pro- 
gram would fall through to the code after the BNE 
instruction. 

I personally don't use BIT instructions much. 
Unfortunately, the designers of the 6502 didn't 
allow for an immediate format of this instruction. As 
a result, you must set up all the masks you use 
somewhere in memory, making the operation a bit 
more cumbersome. 

This OR that. 

Another bit-manipulating instruction used fairly 
often is the ORA (OR accumulator) operation. The 
formats of this instruction are: 

ORA #n (IMMEDIATE) 

ORA nn (ABSOLUTE) 

ORA n (ZERO PAGE) 

ORA (n,X) (PRE-INDEXED INDIRECT) 

ORA (n),Y (POST-INDEXED INDIRECT) 

ORA n,X (ZERO PAGE INDEXED X) 

ORA nn,X (INDEXED X) 

ORA nn,Y (INDEXED Y) 

Unlike the AND operator, which only sets the 
result bit when both input bits are 1, the OR opera- 
tor sets the result bit when EITHER input bit is 1. 
Figure 8 shows how the OR function works. 



The OR operation is used to turn on specific bits 
in a byte, most often in graphics handlers. The fol- 
lowing code demonstrates how the OR instruction 
works. 



18 
28 
38 
46 
56 



«=$e80 
LDA tt$4C 
ORA tt$ll 
ORA 0R3 
BRK 



;$4C IN ACCUN. 
;0R WITH Sli 

;0R WITH See 

;ALL DONE! 



68 0R3 .BYTE 580 
70 .END 



Figure 9. 

Line 20 loads the accumulator with $40 
(01001100 binary). 

Line 30 ORs the accumulator with $11 
(00010001 binary). After this OR operation, 
the accumulator will contin $5D (01011101) 
binary). 

Line 40 ORs the accumulator with the 
contents of the memory location OR3. Since 
OR3 is defined as $80, the accumulator will be 
OR'd with 10000000 binary. After this instruc- 
tion is executed, the accumulator will contain 
$DD (11011101 binary). 

Line 50 stops the execution of the program. 
At this point you can see that the accumulator 
contains $DD. 

An ANALOG exclusive. 

The last accumulator manipulation instruction 
we're going to look at this time is EOR (exclusive- 
OR). This instruction works like OR except that 
when BOTH input bits are set, the result bit will be 
turned off. The following example shows how EOR 
works: 



BYTE i: 
aiE BYTE 2: 

RESULT: 



10110811 
10011010 

00101001 



The EOR instruction is commonly used in gra- 
phics routines, and also for flipping the setting of bits 
in program flags. Let's see how the EOR instruction 
lets us flip bits. The following example shows the 
EOR function flipping all the bits of a byte to the 
opposite binary settings: 



BYTE l: 
aa BYTE 2! 

RESULT: 



10110110 
81818018 

11110118 



Figure 8. 



BYTE l: 
HE BYTE 2: 



18110001 
11111111 



RESULT: OlOGlllO 



As you can see, the OR operation sets the result 
bit if either bit 1 OR bit 2 is set. If both of the bits are 
off, the result bit will also be off. Like the AND 
operation, the ORA operation affects only the SIGN 
and ZERO flags. 



No matter what the contents of byte 1, if it is 
exclusive-OR'd with $FF (binary 11111111), the 
result of the operation will be the mirror-image of 
the first byte. The 6502 code necessary for this 
operation is: 



ISSUE 18 



ANALOG COMPUTING 



PAGE 35 



LDO USBl 
EOH ttSFF 



What if we only want to flip a certain bit? The 
following example shows the flipping of only the 4 
bit of byte 1: 



BYTE l: 

aaa byte 2: 

RE5ULT: 



18110801 
00888188 

10110181 



As you can see, the bit has been flipped to a 1. The 
equivalent 6502 code for this example is: 



LDfl tt$Bl 
EOR ttS04 



The EOR operation is easy to use. All you need to 
do is determine which bits you want to flip and 
exclusive-OR the accumulator with the appropriate 
byte. Like the AND and OKA operation codes, EOR 
sets the SIGN and ZERO flags according to the result 
of the operation. 

Problem time. 

Here are some good bit-manipulation problems 
for you to solve for next month. 

In each of the following problems, you are given 
bit patterns before and after a bit manipulation oper- 
ation. You must determine (1) the operation (AND, 
ORA, EOR) and (2) the second bit pattern used to 
obtain the result. Some problems have 2 possible 
answers. These are indicated with a (2) to the right of 
the problem. If you've read carefully, these should be 
a snap to solve. 



BYTE 1 OPH BYTE 2 



RESULT ftHS 



01008811 
11881811 
11110888 
81818101 

iiooieee 
11111111 

88188180 
01888111 



01000001 C2) 
18188818 

81000000 C2) 

11111111 C2) 

aiiiiiee 

11110081 (2) 
10111000 

eooieoie 



Until next time, try developing some problems of 
your own. It's a good idea to try some addressing 
modes other than the ones used in this column. Next 
month, we'll find out how to do simple multiplica- 
tion and division! D 
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ULTIMA I 

by Lord British 

SIERRA ON-LINE 

Sierra On-Line Building 

Coarsegold, California 93614 

48K Disk $39.95 



by Steve Panak 



Ultima I may not be the most difficult adventure 
game, but it is quite possibly one of the most addic- 
tive. One of the most famous adventure games for 
the Apple computer has finally been translated for 
the Atari, and, much to my horror, I was unable to 
get a full night's sleep until I had completed it. 

The game follows the traditional D & D theme. 
You must first create your character, assigning him 
various attributes, such as strength and intelligence, 
and then you steer him through the Ultima uni- 
verse. Each character is created from a "prototype 
seed" which is first copied onto a blank disk. Then a 
menu is presented for you to assign attribute values 
and select a race and class (fighter, wizard, etc.) for 
your character. Throughout the adventure, you will 
learn to love your creation, as he gains experience, 
gold, and rises in level until he is able to battle the evil 
Mondain. 

Ultima 1 is epic in its scope, as it encompasses 
four continents, as well as space and time. As you 
increase your wealth and power you are able to 
purchase boats, aircars, and finally a spacecraft. 
Weapons, too, increase in power, as does your 
armor. Wizards and clerics can utilize increasingly 
more powerful magic spells. You must steer your 
character through towns, in which you purchase 
supplies; castles, where you ask the king for quests 
and rescue a princess; and dungeons, where you 
complete your quests and gain experience and gold 
by defeating a multitude of monsters. I won't give 
away the nature of the quests to avoid spoiling the 
adventure, but I will say that the battles in the dun- 
geons are probably the best part. 

The hi-res graphics are most impressive. There is 
fine scolling as you move over the continents. The 
dungeons are likewise impressive, and are drawn 
with linear lines, simulating vector graphics like 
those found in the arcade version of Tempest. Each 
of the many monsters has a distinctive appearance 
and specific strengths and weaknesses. Movement is 
extremely easy with the joystick option. Even when 
using the joystick, the keyboard must be used, as the 
joystick only controls movement on one plane and 
allows you to attack. Often times, very late at night, 
you will find yourself repeatedly thinking that you 
will go into the dungeon "just one more time." 

Unfortunately, the game is not without its draw- 
backs. Much time is spent waiting for the disk to 



supply more data when you move from one playing 
area to another. Also, many disk swaps are neces- 
sary; the game would be much more playable if two 
disk drives are used. Puzzle quality and difficulty are 
low. Little, if any, actual problem-solving is neces- 
sary, as most problems simply involve going some- 
where or killing something. Although the graphics 
are great, the space sequence is poor arcade action at 
best, although a slight strategy is necessary. There is a 
save game feature which is always a plus. The end of 
the game is a bitter disappointment, somewhat of an 
anti-climax, when compared to what I expected. 

The documentation is fairly limited, which leaves 
a lot for the player to figure out on his own. This is a 
convenient reference card, to remind you of the 
one-letter commands to control the action. 

All things considered, I can give a conditional 
recommendation for Ultima I. It will please those 
people who revel in arcade action. It may disappoint 
those who prefer high difficulty and logical puzzles 
which must be solved. However, I enjoyed the game, 
although I belong to the latter group. Rating on a 
scale from 1 to 10, Ultima I rates as follows: puzzle 
quality-3.5; documentation-5; graphics-8; overall 
playability-7.5. D 
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by Sally Forth 



Dear 'S>aW.-j, 

Tfve mUse article on page 112 of Issue # 14 states that 
BASIC arrays eat up RAM. Each array element requires 
six bytes, meaning a 10 x 10 array uses 600 bytes. Is 
FORTH as wasteful? 

If FORTH uses six bytes for each array element, can I 
simulate arrays by using strings? The mUse article says 
that BASIC strings are more RAM-efficient, using just 
"one byte per DIM allotment." 

(Unsigned) 

All numbers in Atari BASIC are stored in a 6-byte 
floating-point format. The reason for using this for- 
mat is that it allows BASIC to express very large and 
small numbers easily. The disadvantages of floating 
point are that it takes a lot of memory space to store 
each number, and a lot of processing time to handle 
them. 

FORTH is considerably more flexible than Atari 
BASIC when it comes to storing numbers. With 
FORTH, you can define your own storage formats 
that are as efficient or wasteful as you like, limited 
only by the capacity of the machine. 

The "default" format for a FORTH number is a 
2-byte signed integer. This format allows you to 
express any whole number between -32768 and 
+32767. No fractions or decimal points are allowed; 
that is the price you pay for using only one-third of 
the storage space required by Atari BASIC. 



How do you set up an array in FORTH? The 
method you use depends on what you're going to do 
with the array. Let's assume that you need an array 
called BOX with 10 elements in it. In Atari BASIC, 
you would type: 

DIH B0XC9) 

Notice that BOX is DlMensioned to 9, not 10. The 
reason is that BASIC numbers array elements start- 
ing with 0. If you DIMed BOX to 10 instead of 9, 
you'd actually be reserving space for 11 elements 
instead of 10. BASIC is wasteful enough without 
having useless array elements hogging up RAM! 

The BOX array could be defined in FORTH like 
this: 

UARIABLE BOX 18 ALLOT 

Not too hard to grasp, except for that mysterious 18 
ALLOT. What has the number 18 got to do with a 
10-element array? It works like this: the FORTH 
word VARIABLE automatically reserves 2 bytes in 
the dictionary under the name BOX, enough for one 
signed integer. The 18 ALLOT phrase tells the com- 
piler to reserve 18 additional bytes ander the name 
BOX. Those 18 bytes are enough to hold 9 more 
2-byte numbers. That gives BOX a total storage 
capacity of 20 bytes, or 10 2-byte numbers. See? 
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Now let's fill our BOX arrays with numbers. We'll 
assign each number a value equal to its position in 
the array, so that BOX (0)=0, BOX (1)=1, BOX 
(2)=2, etc. One way to accomplish this in BASIC is: 



10 DIN B0XC9) 
20 FOR 1=0 TO 9 
30 BOX CI) =1 
40 NEXT I 



In FORTH, you could try: 



UARIOBLE BOX 18 ALLOT 

10 DO 

I I 2« BOX + ! 
LOOP 



The above FORTH example works okay, but it isn't 
as efficient as it could be. Because all of the numbers 
in the array are less than 255, we could use a single 
byte to store each one instead of two. And since the 
numbers are predefined, why not stuff them into the 
array at the same time the array is defined? 

Here's an example that will show you what I mean. 



LABEL BOX 



C, 
5 C, 



1 C, 
6 C, 



2 C, 
7 C, 



3 C, 
8 C, 



4 C, 
9 C, 



LABEL XP0INT5 



20 C, 
28 C, 


16 C, 
16 C, 


20 C, 
20 C, 


24 C, 
24 C, 


12 C, 
28 C, 


LABEL 


VPOIHTS 








6 C, 
9 C, 


8 C, 
10 C, 


8 C, 
10 C, 


8 C, 
10 C, 


9 C, 
12 C, 



c The following word will read the 

C coordinates out of the tables and 

C PLOT then > 

: PLOTEH 



3 GRAPHICS 
1 COLOR 
10 DO 

I XP0IMT5 + e 

I VPOIHTS + 

PLOT 

LOOP 



( fetch x-coord ) 

C and y-coord ) 

C and PLOT then ) 

C siMple, eh? ) 



Remember: whenever possible, initialize an array 
by compiling the values directly into the dictionary. 
And use bytes instead of words when your data 
values are less than 255 . You'll save all sorts of RAM 
space, which can then be used to accomplish more 
interesting things. D 



The word LABEL simply marks a place in the dic- 
tionary and gives it the name BOX. The following 
sequence of C, words simply compiles the byte 
values 0-9 directly into the dictionary. You end up 
with a "string" of 10 bytes numbered 0-9, already 
initialized and ready to go without any external 
loops! How's that for efficiency? 

I'll leave you with a semi-useful example of how to 
set up and access arrays in FORTH. Let's set up two 
arrays, XPOINTS and YPOINTS, each of which 
containing the fixed X and Y coordinates of ten 
points to be plotted sequentially. I'll show you the 
code that will set up the arrays and plot the points, in 
both BASIC and in FORTH. 

First, the BASIC code: 



10 DIM XPOIMTStg), VPOIHTS C9) 

20 FOR 1=0 TO 3 

30 READ X:XPOIMTSCH=X:ilEXT I 

48 FOR 1=0 TO 9 

58 READ V : VPOIHTS CI) =V: NEXT I 

60 GRAPHICS 3;COL0R 1 

70 FOR 1=0 TO 9 

80 PLOT XPOIHTS CI), VPOIHTS CI) 

90 HEXT I 

100 REN « X-COORDIHATE DATA 

110 DATA 20,16,20,24,12,28,16,20,24,20 

120 REM « V-COORDIHATE DATA 

130 DATA 6,8,8,8,9,9,10,10,10,12 



Here's the same thing in FORTH: 



C First set up the x and v 
C coordinate tables ) 
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will never be lower than they'll be 
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EXODUS: ULTIMA III 

by Lord British 

ORIGIN SYSTEMS 

P.O. Box 99 

North Andover, Massachusetts 01845 

48K Disk $59.95 

by Cliff Chaput 

It all started when I bragged to my friend, "Hey, 
Ted! I'm going to review Ultima III!" 

"Neat, Kiffy," he replied. (I hate it when he calls 
me Kiffy.) "But I thought you didn't like role- 
playing games and medieval themes." 




^mm 



'i^^X^"^- 



--^"'f:^^'^^^ 




Role-playing? Medieval? Yech. Well, I thought, 
I'm stuck with it. I might as well review it. I shoved 
the disk in the drive and booted it with bad expecta- 
tions. After viewing a modest title screen, the pro- 
gram began. Wow! I had to admit, the introduction 
was quite fabulous. Some heavy-duty programming 
must have gone into the title's "materialization." 
And there's a cute little dragon fight thrown in there. 
Very well done! 

After that I ran into a problem. For those of us 
who are buying an Ultima program for the first 
time, beware: You must be prepared with a blank 
diskette. On this will go a copy of the back side of the 
Ultima III disk, your player disk. 

Once you've got that over with, you may enter the 
magical land of Sosaria. The finely-detailed graphics 
really get you into the game. The landscape and the 
players are works of art. Take a moment to really 
appreciate them. The music is quite beautiful as well, 
not to mention appropriate. 

First off, you get your player or group of four 
players prepared to battle, steal, and cast. Once your 
ensemble is ready, you journey around the island, 
exploring forests, entering towns and castles, search- 



ing for some unknown creature named Exodus. 
Hidden in mountain caves are dungeons, and once 
you enter one of those, it's like going through a maze 
(one might suggest keeping a map). Finding moon- 
gates, stealing money, killing trolls — it's all part of 
the fun. This is the type of game that'll keep you 
going for months. A true programming triumph. 

But, as all programs do. Ultima III has its prob- 
lems. For instance, the music can get very monoto- 
nous. Although there is a sound toggle key, it only 
turns off the movement and battle sounds, and the 
music goes merrily on. 

And the ultimate of all problems, "The Glitch!" 
Now I'm not trying to stir up hot coals or anything, 
but my copy of Ultima III does not work. I 
wouldn't mention this if I thought it was an outside 
case, but good ole Ted is on his third Ultima III, and 
he says that it's going sour, too. I would really hate to 
knock such a wonderful product on a one in a mil- 
lion chance, but four out of four? That's not a good 
record. 

In short. Ultima III is a must-have for your 
software collection. You might want to ask around to 
see if all those Ultima Ills glitch; I doubt if they all 
do. You may have some problems at first, but once 
you get started, you'll never be able to stop. D 



EPSON*, NEC*, PROWRITER*, GEMINI*, OKIDATA 92* 
OKIDATA 82A/OKIGRAPH, M-T SPIRIT, DMP-80, PANASONIC KXP-1070 




The only self-booting grafix handler for dumps In horizontal format 

— all mach. lang. — Lister incl. — all modes — mixed modes — 
change aspect ratios, etc. while running other programs — assem ed 

— basic or no cartridge — demos, utilities, fonts, included — dump, 
create forms, stationery, calendars, requires interface. *29.95 

B diskwiz-ll Q 

Now for single/double density. Repair, explore, alter, duplicate, 
map, speedcheck, bad sector (810), block move, trace, special print 
capabilities, disassembler, new speed, new ease, new functions, 
special printing functions, excellent repair tool w/instr. — even better 
than before! The best repair/editor/duplicator at any price — still at 

the lowest price. (Updates avail, for a small fee.) '29.95 

7 St Class Postage Paid 

California Residents add 6%, Foreign Orders add $2.50 

C.O.D. add $3.00 — No credit cards 

Prices subject to change 

(213) 376-4105 
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lACROWARE Redondo Beach, CA 90278 
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GRUDS IN SPACE 
by Chuck Somerville and Joe Dudar 
SIRIUS SOFTWARE 
Sacramento, California 95827 
48K Disk $39.95 



by Patrick J. Kelley 

So, my friend, you wanna be a Space Jockey, huh? 
You wanna visit exotic places, strange new worlds, 
and hobnob with inscrutible aliens, huh? You say 
you wanna battle horrible maneating monstrosities 
and be a Galactic Hero with medals and all that, do 
ya? Don't ask for much, do ya, friend? I suppose you 
even wanna be a Rich Man for all your troubles, too. 

Under most circumstances, these requests would 
be next to impossible to achieve one at a time, but 
put them all together and the odds of them happen- 
ing to one person would be astronomical. However, 
if you're willing to invest a few dollars, a bit more 
time, and a lot more patience, you can get as close to 
all this as any Earthly mortal can. Prepare to match 
wits with Gruds In Space. 




:5 

THERE IS A MINDOH TO THE EAST 
:H 

THERE XS A KEYBOARD ON THE HALL.. 



Gruds in Space. 

The premise for this new graphics/text adventure 
from Sirius Software is the stuff of classic yarns. You 
are a lone wolf space pilot, approached by Earth's 
Armed Space Force to carry out a do-or-die mission, 
with the fate of our dear planet's fighting men in the 
balance. It seems that your ship is the only one in the 
solar system close enough and fast enough to fly a 
daring rescue mission. Your destination: The airless 
moon of Baranok, and site of a pitched battle. Unless 
precious fuel is rushed to the waiting Earth star 
force, the future looks pretty grim for ol' Terra and 
her boys in uniform. You are the last hope, and 
should you decide to accept this mission, you may be 
signing your own death warrant. Grimly you accept, 
solely out of patriotism and strong moral fiber. (Or 



is it because of the $1,000,000 cash reward waiting 
for you if you succeed?) Nevertheless, the game is 
afoot. But before you begin to spend that cool mil- 
lion, you better hear some more facts. 

Let the game begin. 

Firing up the Hyperwarp on board your ship, you 
set off in search of the fuel, and your place in the sun. 
Ahead of you lies the majestic planet Saturn, and the 
beginning of a great adventure. For it is not just a 
simple matter of just getting the fuel. First, you must 
beam down to one of Saturn's moons and establish 
contact with the natives in a local mining colony. All 
of your skills as a detective and a diplomat must be 
brought into play here, as you barter for the location 
of the fuel, hunt for clues, and come face to face with 
the Gruds. 

If your first meeting with a Grud is unsettling, be 
assured that the feeling is a mutual one. If there is one 
thing that a Grud hates, it's a human. You'll find no 
friendly aliens here, nor any help in your quest. If 
you can get one of the squat, green aliens to even 
answer your questions, you're doing good. It is here 
on the planet of the Gruds that your work really 
begins, so be ready to meet any adversity head on. 
Before you're through, you'll either qualify yourself 
as an interstellar diplomat, or a hopeless basket case. 
So be thorough, leave no stone unturned, but above 
all, be quick. 

Lotsa luck! 

This is not a game for quitters. Many an obstacle 
will be thrown in your path in the course of this 
game, so if you intend to stay with it you had prepare 
yourself for loads of frustration, cursing, hair pulling 
and rewards beyond your wildest dreams. As a 
novice adventurer, I found myself on the verge of 
abandoning the game many a time, but a cool head 
prevailed and I'm not sorry at all. This is an enjoy- 
able game that will provide many hours of thrills and 
delight, along with a real sense of accomplishment 
that cannot be found in your average shoot 'em up or 
blow 'em to Hades derivative. 

But perhaps the best feature of Gruds In Space is 
the graphics. This is the most detailed and animated 
graphics/text adventure that I've ever seen, and 
belies a lot of love in its creation. Blinking eyes, 
twinkling stars, flashing lights and leering monsters 
fill every frame with a real character, and the con- 
tinuity of shape and color are truly amazing. This 
game sets a standard that many other so-called "gra- 
phic" adventures fall far short of, both in concept 
and execution. In some cases, the animation is so 
well integrated that it becomes more than just an 
enhancement to the adventure, but a feature unto 
itself. I won't say any more to give away the plot or 
spoil the myriad surprises in store for you, so I'll just 
close by saying that if every picture is worth a thou- 
sand words, then Gruds In Space must qualify for at 
least a hundred volumes. D 



MILES 

ACCOUNTING 
SYSTEM 11 



The Finest Accounting Software Available for the Atari Today 



It's g ood for business. 

Who says the Atari is just a 
games machine? Not us. And we 
have the software to prove it. 

There's no longer any reason to 
spend thousands for a "business 
computer" when your Atari and 
Miles Accounting System II can 
handle any accounting situation 
your business can throw at it. 

Miles Computing has the hands- 
down, best accounting software 
available for the Atari today. We 
think you'll agree. 



The Critics^ Choice. 

The critics agree. Here's what 
some of them said about Miles 
Payroll System: 

"Thi.' package is flexible and capable of 
holding and manipulating a wide spectrum of 
information. In fact, it is hard tothinl^ofanarea 
the program doe.s not cover." 
— Desktop Cimipiiliiifi 

"The performance of Miles Payroll System is 
excellent. It handles all its promised features 
quickly and easily. ...It is an ea,sy-to-learn 
program that is very powerful." 
—InfoWoykl 

"The documentation is excellent — well- 
written, clear and concise." 
—Iksklop Ci/Dipiiliii}; 

".So much for the Atari's reputation of being a 
games-only machine." 
—Desktop CoDipiitiiig 

Hardware Requirements: Atari computer 
with 48k, any 80 column (minimum) printer, 
and 2 disk drives (single or double density). 
Double density drives will greatly increase the 
capacity of Miles Accounting System II. 

Price: .SUfi [)er module. Buy any 3 modules and 
get the 4th one free. 



IiifoWorid 

Miles 

Payroll System 



m 






"In all respects — 
features, 

I^erformance, ease of 
use, documentation 
and support — this is 
a professionally 
conceived and 
executed program. 
We ltK)k forward to 
other business 
software from Miles 
Computing that will 
serve the needs of 
Atari owners." 
—hiloWorld 



The Complete 
Accountin g S ystem. 

There are six separate modules 
in the system. Each functions 
individually as a complete stand- 
alone program. All six modules can 
also be easily linked resulting in an 
extremely powerful integrated 
accounting system. 



G/L 



General Ledger System* 



Allows interactive maintenance of the chart 
of accounts file, including add, change/inquiry 
and delete. Handles up to thirteen accounting 
IX'riods, supports multiple profit centers, prints 
source cross-reference reports, financial 
statements (Income Statement, Balance 
Statement, Statement of Cash Flow). 

|Ay1^| Accounts Receivable System** 

This comprehensive system processes and 
maintains records from customer invoices and 
cash receipts, calculates service charges, 
maintains sales history and credit rating 
records. Allows aging. Handles both open items 
and balance forward customers. 



A-T" 



Accounts Payable System*** 

Keeps accurate status of all outstanding 
obligations: prints cash requirements rejxjrt, 
allows flexable payment sele-ction, including 
partial payments, prints A/P checks and check 
register, prints vendor analysis report. 

CIRCLE #128 ON READER SERVICE CARD. 



I PAYROLL I Payroll System 



Cumulative totals are maintained for each 
employee, as well as complete reporting, check 
writing, and W-2 reporting. Allows weekly, 
biweekly, semimonthly or monthly pay pericxis. 
handles Federal, State and City taxes, FICA, 
SDI, Group Insurance, Federal and State 
Unemployment Insurance, maintains 
cumulative totals and Worker's Comijensation, 
prints paychecks and W-2's. Gives 941 
information. 

|l/C| Inventory Control System** 

Provides complete control of your resale 
inventory: not in stock items, items on order, 
items at or below reorder point, complete 
Vendor Item Report, suggested Purchase Order 
to Vendor. Allows for inventory costing by 
either average cost, LIFO or FIFO, and handles 
multiple pricing per items. 

|OE/I I Order Entry Invoicing System** 

For entry of sales orders and shipping data, 
and printing customer orders, invoices and 
shipping papers. May atso used to maintain 
address records, generating back orders for 
partially filled orders. Orders are automatically 
printed when shipping dates are entered into 
the system. Provides 0/E and editing, handles 
credit memos, prints picking tickets, price lists 
and stocking status reports. 

** Available end of 2nd quarter 1984 
*** Available 3rd quarter 1984 

See for yourself. 

Ask your local computer dealer 
to show you one of our self- 
running demos, or call us directly. 



fAiles ahead of the pack. 



MILES COMPUTING 

7136 Haskell Avenue Suite 300 

Van Nuys, California 91406 

(818) 994-7901 
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You're on maintenance duty aboard the USS Sea 
Moss, patrolling the icy North Atlantic waters with an 
arsenal of twenty nuclear missiles. 

The Sea Moss is no ordinary sub. She's the first to 
carry the f^avy's new experimental sonar-jammer that can 
makeher "invisible" to even the most sophisticated enemy 
sensors. The ^o-kiloton cruisers in her missile bay are the 
pride of the Pentagon: fast, silent, incredibly accurate. 

The enemy would love to get their hands on the Sea 
Moss and her secrets. It's not likely to happen, though. 
The only way they could possibly breach the hull would be 
from the inside — and your fellow crewmembers have 
been carefully handpicked for their unswerving patriot- 
ism and utter lack of imagination, hlo "moles" in this 
bunch of sailors. No, sir! 

The intercom in the equipment bay clicks to life. "I've 
got a had line in the forward escape tube," a voice from 
the command deck crackles. "Wanna come up here and 
take a look at it?" You grab a screwdriver, scoot up a 
ladder and slam the hatch of the escape tube behind you. 

It's all over in a few seconds. The General Quarters 
klaxxon blares to life. You hear the shrieks and choked 
coughing of friends as they stumble through the passages 
outside, and a single hoarse shout: "Gas!" Some poor 
sucker pounds weakly on the escape hatch. Then the 
alarm cuts off as suddenly as it began. Everything is silent 
as deatK. Frozen with fear, you sit trembling in the airtight 
escape tube, knowing that now it's just you and the Sea 
Moss against whoever shut off the alarm. 

The game. 

Crash Dive! is a machine-language text adventure 
that pits you in a race against time. As the sole 
survivor of a terrible act of naval sabotage, you must 
find a way to keep your ship out of the hands of The 
Enemy. No sacrifice is too great to achieve this 
important goal. The question is, how do you get rid 
of a giant nuclear submarine and everything in it? 

As the start of the game, the Sea Moss is assumed to 
be cruising along the surface of the ocean. Your 
mission is as follows: 

1. Find a way to survive in the submarine's 
poisoned atmosphere. 

2. Get the sub under water, so that enemy 
ships will not be able to reach it easily. You have 
a limited number of moves after the game begins 
to accomplish this, or the Enemy will capture 
the sub and kill you on the spot! 

3. Find a way to completely destroy the Sea 
Moss. 

Some of these goals will be relatively easy to 
accomplish. Others will require careful thought and 
a little bit of resourcefulness. Don't forget that there 
may be somebody left alive on the Sea Moss besides 
yourself — and that somebody might not be very 
friendly! 

We'll discuss the details of playing Crash Dive! in 
a moment. First, let's take a look at the program 



itself, and how to get it up and running on your 
computer. 

Typing it in. 

Listing 1 is an Atari BASIC program that will 
create an auto-booting version of Crash Dive! on 
disk or cassette. The DATA statements are listed in 
hexadecimal (base 16) in order to make the program 
as small as possible. It makes typing a little more 
difficult, but it's a necessary evil. 

Listing 1 will not fit in a 16K Atari system. You'll 
need at least 24K of memory if you're using cassette, 
or 32K if you're using disk. However, the machine- 
language file created by Listing 1 does fit in 16K. If 
you only have 16K in your computer, ask a friend 
with a larger system to help you type in and RUN the 
BASIC listing. After the boot tape or disk is made, 
you'll be able to enjoy the game on your 16K system. 

Listing 2 is the assembly-language source code 
for Crash Dive!, created with the MAC/65 Macro 
Assembler. You do not have to type Listing 2 into 
your computer to play the game (thank goodness!). 
It's provided for those readers interested in learning 
how the program works. 

Follow the instructions below to make either a 
cassette or disk version of Crash Dive! 

Cassette instructions. 

1. Carefully type Listing 1 into your compu- 
ter (remember, you need at least 24K to do 
this). Use C:CHECK (page 30) to verify your 
typing. 

2. When C:CHECK says the program is per- 
fect, type RUN and press RETURN. The pro- 
gram will prompt you with: 

MAKE CASSETTE (0) OR DISK (1)? 

Type and press RETURN. The program will 
now begin checking the DATA statements, 
printing the line number of each as it goes. It will 
alert you if it finds any problems. Fix any incor- 
rect lines and re-RUN the program as necessary 
until all typos are eliminated. 

3. When all DATA lines are correct, the 
computer will "beep" twice and prompt you to 
READY CASSETTE AND PRESS RETURN. 
Insert a blank cassette into your recorder, press 
the PLAY and RECORD buttons simultane- 
ously and hit RETURN. The message WRIT- 
ING FILE will appear, and the program will 
create a machine-language boot-tape version of 
Crash Dive!, printing the line number of each 
DATA statement as it goes. When the READY 
prompt reappears, the game is recorded and 
ready to play. CSAVE the BASIC program on a 
separate tape before continuing. 

4. To play Crash Dive!, rewind the boot tape 
created by the BASIC program to the beginning. 
Turn your computer OFF and remove all car- 
tridges. Press the PLAY button on your recorder 
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and turn ON your computer while holding 
down the START key. If you have a 600XL or 
800XL computer, you must hold down the 
START and the OPTION keys together when 
you turn on the power. The computer will 
"beep" once. Hit the RETURN key and Crash 
Dive! will load and run automatically. 

Disk instructions. 

1. Type Listing 1 into your computer and 
use D:CHECK2 (see page 30) to verify your 
typing. 

2. When D:CHECK says the BASIC code is 
perfect, type RUN and press RETURN. The 
program will ask: 

MAKE CASSETTE (0) OR DISK (1)? 

Type 1 and press RETURN. The program will 
begin checking the DATA statements, printing 
the line number of each statement as it pro- 
ceeds. The program will alert you if it finds any 



problems. Fix incorrect lines and re-RUN the 
program as necessary until all typos are 
eliminated. 

3. When all DATA lines are correct, the pro- 
gram will prompt you to INSERT DISK WITH 
DOS, PRESS RETURN. Put a disk containing 
Atari DOS 2. OS into drive #1 and press 
RETURN. The message WRITING FILE will 
appear and the program will create a binary 
AUTORUN.SYS file on the disk, displaying 
the line number of each DATA statement as it 
goes. When the READY prompt reappears. 
Crash Dive! is ready to play. Be sure the BASIC 
program is SAVEd out to a disk before con- 
tinuing. 

4. To play the game, insert the disk containing 
the AUTORUN.SYS file into drive #1. Turn 
your computer OFF, remove all cartridges and 
turn the computer back ON. Crash Dive! will 
load and run automatically. 
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Assuming everything went okay, you should now 
be looking at the Crash Dive! title screen, which 
includes the following prompt: 

Press START to play new game 
Press OPTION to restore old game 



t> Jl u t ' t I M J 



evilmt n ftwai^ 



l^m.%»Mm escape tube 
None 
Closed hatch 



UISIBUI 
ITEMS 



HHftT 
HQPPEWS 



YOUR 
RESPONSE 



HHAT 
VOU 
ftRE 
CARRYING 



Okay 

TAKE S€REM»RXVER 

Tin» screwdriwer 



Crash Dive! 

You haven't played the game before, so press the 
START key. Your TV screen should now look like 
the screen shown above. Note that the screen is di- 
vided into seven distinct sections or windows. From 
top to bottom, they are: 

Event Window. The EVENT # counter in the 
top right corner keeps track of how many "events" 
have transpired since the start of the game. In gen- 
eral, each movement or other action you take during 
the course of the game counts as one event. 

Location Window. This window contains a brief 
description of your current location. 

Exit Window. The Exit Window tells you which 
directions you can go from your current location. 
Six voctors of movement are allowed: N (North), S 
(South), E (East), W (West), U (Up) and D 
(Down). "North" is towards the front of the subma- 
rine, "South" is aft, and so forth. If you can't move 
from a given location for some reason, the Exit Win- 
dow will read "None." 

Visible Items Window. This window displays a 
list of all the things you can see at your current 
location. Up to six items may be present in a location 
at any one time. Unoccupied locations will contain 
"Nothing." 

What Happens Window. The What Happens 
Window reports on the results of your actions and 
lets you know if anything interesting is happening on 
board the Sea Moss. Keep an eye on this window — it 
may offer valuable information you will need to 
complete the adventure. 

Response Window This 2-line window is the 
communications link between you and the game. 
The commands and sentences you type into the 



Response Window tell the computer how you want 
to proceed. Each new line scrolls up into the top half 
of the window after you hit RETURN, so that you 
can see what you just typed. A blinking green under- 
line keeps track of your position. 

Inventory Window. Look here for a list of all 
the items you are carrying. Up to six items may be 
held at one time. If you're empty-handed, the win- 
dow will say "Nothing." 

Talking to Crash Dive! 

Like most text adventures. Crash Dive! under- 
stands two-word sentences in the form: 

VERB NOUN 

The single space character between the verb and the 
noun is required. Don't worry about capitals vs. 
lower-case, numbers or funny characters — Crash 
Dive! has a "smart" keyboard handler that will snarl 
at you if you try entering anything illegal. 

The best way to learn how to talk to Crash Dive! 
is to play with it. Let's use the opening screen as an 
example. The Location Window says you're in the 
escape tube, with no obvious exits and nothing in 
your inventory. You can "see" a closed hatch and a 
tiny screwdriver. Type the sentence TAKE SCREW- 
DRIVER and you'll see the screwdriver vanish from 
the Visible Items list and reappear in your inventory. 
Simple, right? 

You can interact with objects on the screen much 
like you can in real life. Type EXAMINE SCREW- 
DRIVER and the What Happens Window will tell 
you that it "Seems ordinary." Now try EXAMINE 
HATCH and learn something interesting about the 
escape hatch. If you try to TAKE HATCH, you'll 
find out what happens when you attempt something 
impossible. DROP SCREWDRIVER will put the 
tiny screwdriver back in the Visible Items list. 

You may be tempted to type OPEN HATCH, but 
if you read my little introductory tale carefully you'll 
know better than to try it. Think about your situa- 
tion for a while and you'll discover a way to explore 
the rest of the Sea Moss without suffocating! 

Commands. 
Crash Dive! also understands a limited number 
of single-character commands. These are used to 
control your movement around the sub, and to per- 
form special "internal" game functions. The follow- 
ing commands are recognized by Crash Dive!: 

Movement Commands 

N - North S - South E - East 
W - West U - Up D - Down 

Internal Commands 

X - Mark Game Position 
Q,- Quit/Restart Game 
A - Again (Repeat Last Sentence) 
The movement commands are easy to use. Just con- 
sult the Exit Window tc:) see which vectors are avail- 
able, and type the initial of the direction you want to 
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go. The program will scold you if you type an illegal 
direction. 

Saving your game. 

The "X" (Mark Game Position) command is used 
when you want to save the current status of your 
game. Type X/RETURN and you'll see the follow- 
ing prompt: 

SAVE GAME TO DISK OR CASSETTE? 
If you're using a disk drive, insert a disk containing 
Atari DOS 2.0S into drive #1 and press the "D" key. 
Your game will be saved out in a few seconds and 
you'll return to the main screen. 

If you're using cassette, insert a blank tape into 
your recorder and press the "C" key. The computer 
will "beep" twice. Press the PLAY and RECORD 
keys on the recorder simultaneously and hit 
RETURN. The game will be saved and you'll return 
to the main screen. 

Starting over. 

The "Q" (Quit/Restart) command is used when 
you want to restart the game from the beginning, or 
restore a game you have previously saved to disk or 
tape. Type Q/RETURN and you'll see the familiar 
Crash Dive! title screen. Press the START key if 
you want to start over from scratch. Press OPTION 
and you'll be asked: 

RESTORE FROM DISK OR CASSETTE? 

If your game was saved on disk, insert the game disk 
into drive #1 and press the "D" key. Your game will 
automatically resume at exactly the point where you 
left it. 

If your game was saved on tape, cue the tape to the 
beginning of the saved game and press the "C" key. 
The computer will "beep" once. Press the PLAY key 
on the recorder and hit RETURN. Your game will 
resume at the point where you left it. 

The A command. 

The third and last command recognized by Crash 
Dive! is "A," which means Again. This command 
re-executes the last sentence you typed as if you had 
typed it in again yourself. The A command only 
repeats your last sentence (verb/noun); it will not 
repeat single-character commands. 

Hints for successful play. 

1. Draw a map. You'll have a hard time 
remembering the layout of the Sea Moss unless 
you draw a map. There are no mazes in this 
adventure, but a map will help you recall where 
interesting items are located and how the var- 
ious rooms are connected. 

2. Examine everything. Objects may have 
important features that will not be evident 
unless you examine them closely. Most of the 
items you discover in the game are essential to 
your success (though I may have left a couple of 
red herrings lying around . . . ). 



3. Save your game frequently. Use the X 

command to save your current status after 
important discoveries and breakthroughs, and 
before trying anything that might be dangerous. 
Otherwise you may find yourself starting all 
over again in the escape tube. 

4. Try anything. Don't be afraid to test the 
game to find out what you can or can't do. The 
worst that can happen is that you will be cap- 
tured and killed by enemy agents, shot in the 
back or cooked by a blast of radiation. 

5. Study the clue photo. The photograph 
on page 46 contains information that you may 
find very helpful in solving the adventure. The 
game will refer you to this photo occasionally. 

6. Don't give up hope. It is possible to 
survive in the Sea Moss long enough to destroy 
it. Really and truly it is! If you're hopelessly 
stuck, ask for other people's suggestions. A 
fresh outlook might uncover a solution you 
didn't think of yourself. 

7. Use C:CHECK or D:CHECK on the 
program before you try to use it. It only takes 
one byte in the wrong place to make Crash 
Dive! totally unplayable. 

8. Don't call ANALOG. We are absolutely 
not giving out adventure hints over the tele- 
phone! If you're really stuck, send me a self- 
addressed, stamped envelope at the following 
address: 

CRASH DIVE CLUES 

c/o Brian Moriarty 

ANALOG Computing Magazine 

P.O. Box 23 

Worcester, Mass. 01603 



BASIC Listing. 

18 REM «*» CHftSH DIUE *** 

28 TBdP 28:? "MfiKE CASSETTE C8J , OR 01 

SK (1J";:IMPUT D5K:IF DSK>1 THEN 28 

38 TRAP 4888e:DATa 8,1,2,3,4,5,6.7,8,9 

,8,8,8,8,8,8,8,18,11,12,13,14,15 

48 DIM 0ATSC91J,HEKC22J :FOR K=e TO 22: 

READ N:HEKCXJ=H:MEKT X:LIHE-99e:RESTGR 

E 1808: TRAP 120:? "CHECKING DATA" 

58 LINE=LINE+ie:? "LINE :"; LINE :READ DA 

TS:IF LENCDAT$J<>98 THEN 228 

68 DATLIN=PEEKC183)+PEEKfl84J»256:IF D 

ATLINOLINE THEN ? "LINE "JLINE;" HISS 

ING!":END 

78 FOR K=l TO 89 STEP 2 :D1=A5C CDATS CH, 

K) J -48 : D2=ASC CDAT5 (K+1 , H+U J -48 : BYTE=H 

EK(D1J»16+HEKCD2J 

88 IF PA5S=2 THEN PUT ttl , BYTE : NEXT X:R 

EAD CHKSUM:GOTO 58 

98 TOTftL=TOTAL+BVTE:IF T0TAL>999 THEN 

T0TAL3T0TAL-i8e8 

188 NEXT X:READ CHK5UM:IF TOTAL=CHKSUM 

THEN 58 
lie GOTO 228 

128 IF PEEK(195J<>6 THEN 228 
138 IF PASSES THEN 178 
148 IF NOT D5K THEN 168 
158 PUT ttl, 224: PUT ttl, 2: PUT ttl, 225: PUT 

ttl,2:PUT ttl,128:PUT ttl,31:CLeSE ttl:EN 
D 
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168 FOR X=l TO 25:PUT ttl,e:NEXT X:CL05 

E ltl:END 

170 IF NOT DSK THEN 208 

188 ? "INSERT DISK WITH DOS, PRESS RET 

URN";:DIM IN$(1):INPUT IN$:OPEN ttl,8,8 

,"D:flUT0RUN.5Y5"' 

190 PUT «1.255:PUT ttl,255:PUT ttl,128:P 

UT »1,31:PUT ttl,198:PUT ttl,58:G0T0 218 

280 ? "READY CASSETTE AND PRESS RETURN 

";:OPEN t»l,8,128,"C:":REST0RE 238:F0R 

K=l TO 4e:READ N:PUT ttl,N:NEMT X 

210 ? :? "I4RITING FILE":PASS=2:LINE=99 

8:REST0RE 100e:TRAP 120:G0T0 50 

220 ? "BAD DATA: LINE ";LINE:END 

230 DATA 0,55,88,31,127,31,169,0,141,4 

7,2,169,60,141,2,211,169,0,141,231,2,1 

33,14,169,56,141,232,2 

240 DATA 133,15,169,128,133,10,169,31, 

133,11,24,96 

1800 DATA A2008E4402E886092065E44CB81F 

70707878424830981802901002901002820282 

828298180282981802028088, 119 

1818 DATA 1802020202828278418E1FA2FF9A 

2e622AA2eCA8862e772AA986A835205D2AA219 

Ae0720772AA917Ae35205D2A, 527 

1028 DATA A208Ae092e772AA922A835285D2A 

A205Aei82e772AA93BA035205D2AA283A81220 

772AA95AAe352e5D2AA9868D, 277 

1838 DATA 2C3C8D2D3CA9228D2F02287C2AAD 

lFD0C9e7F0F9AElFDeE007DeF9C9e6F0eAC983 

Fe0C20882A4C142e28E92F4C,59 

1848 DATA 9B28A285A81420772AA97DA83S2e 

5D2A287C2A28252BC944FO0DC943FOeF2e382E 

20802A4C472e28422E4C6420,682 

1058 DATA 20492EA9039D4283A9849D4A83A9 

8e9D48032856E438DAA210A9C09D4483A93A9D 

4503A9489D4883A9019D4903, 753 

1868 DATA A9e79D4283205eE430BA20382E2e 

B22AA98E8D3082A91F8D3102A99CAe35285D2A 

A90C8553A9ClA8352e5D2AA9,28 

1878 DATA D7A035205D2A2ei52B20152B2015 

2B28152B201D2BA983A8362e5D2A281D2BA924 

A83620502A20152B2ei52BA9, 715 

1088 DATA 278553A9C48DC882A9388DeiDeA9 

CA8D82DeA94e8D83D8A2FF8EeED88E8FD88E18 

DeE88E84D0E88E6F82A9838D, 442 

1898 DATA 89D88D8AD08De6D0A9F08581A91E 

8582A90D8552AO85A22CA9862e5CE4A9318D88 

82A92A8D8102A9C88D8ED4AD,551 

1100 DATA C23A4CA823A2FF9A2eBC2CEEC83A 

D803EEC13AADC23AD81BA9282eD82DF81420B2 

2AA208A8e320772AA928Ae3A, 724 

1118 DATA 285D2A4C192EADC83AC928D81EAD 

C13AD819ADC73AD81428B22AA2e7Aee320772A 

A96DAe39205D2A4C192EADCB, 289 

1128 DATA 3AF00ACED23AD885A90e8DCB3AAD 

CC3AF02eA91C2eD82DF019ADCB3AD01420B22A 

A288A8O320772AA911A83928, 112 

1130 DATA 5D2A4C192EADD33A181428B22AA2 

O9AO0328772AA90OAO3A2e5D2A4C192EADC23A 

C912D88DA98428EB2DD006CE, 122 

1148 DATA D33A4C8e22A9818DD33AADCE3AD8 

35AD8AD229F88DC33AAD8AD229F88DC43AADC9 

3AF828ADC73A18D869888DC7, 759 

1150 DATA 3A10148DCE3A2O112DA955A8382e 

5D2AA917A83A2e5D2AA9228D2F8228E92B2811 

2DA684E081D827AD8886A208,48O 

1160 DATA DDD62EFO10CA10F82O892DA94DAe 

36285D2A4CD82EBD53238591BD5C2385926C91 

08A92O858A858BA281BD0Oe6, 261 

1178 DATA C92eFO12E8E4849eF42O092DA959 

A036205D2A4CD02E868DE0829882A282BD8086 

9589CA18F8A288868E868CAe, 417 

1180 DATA 0OB989OeDDDF2ED0e8E8C8C8e398 

F2888DE68EA68CE8E8E8E85A98E1B8BEA58EC9 

1CD88AA92DA0372O5D2A4CD0, 704 

1190 DATA 2EA68DE8A0eeBDee8699898eE8C8 

C88398F4A2Oe868F868CA8OeB989e0DD6E2FDe 

e8E8C8C0039eF2Bei8Ee8FA6,49e 

1288 DATA 8CE8E8E8E87E90E120092DA962A8 

362e5D2A4CD02EA58E85A90AAABD362F8591E8 

BD362F8592A58F85AAC927F8,358 

1210 DATA 0DC928F013AABDE23B85986C9188 

A941A037205D2A4CD82EA956A8372e5D2A4CD8 

2E8F8F8F8F8F8F65FE712323, 354 

1228 DATA 23232323232324A08C28752AA98F 

A8362e5D2AA222A08C20772A868O2e7C2A2025 

2BC959F8e8A20C209E2A4CD8,17 



1238 DATA 2E4CB81FB593188AA97DA836285D 

2A4CD02ED8859F207C24A59F8DC23A20DC23AO 

05B1A0999300B1A299998888, 8 

1248 DATA 18F3A281289E2AA88128752AAEC2 

3ABD3E328C5432285D2A205F2D202A2D2e972D 

4CC92DOA859eOA186590859O, 906 

1250 DATA 1869DA85A0A93A698885A118A598 

695E85A2A93Be9e885A360287C2428B22AA285 

A80B20772AA966A83A285D2A, 355 

1268 DATA A9228D2F82287C2A28252BC944F8 

8DC943Fe8F28382E28882A4ClA2428422E4C37 

242e492EA9839D42e3A9889D, 771 

1278 DATA 4Ae3A9889D4Be32e56E43ODAA210 

A9C09D44e3A93A9D4583A9489D4883A9ei9D49 

83A98B9D42832856E438BA28, 981 

1288 DATA 382E4C9B28A5A9858EA5AA858F4C 

1923ADC23A28DC23A8e5B9938891A8B9990891 

A28818F38OA58FC916B0834C, 138 

1298 DATA 572EA59828D82DD8e34C8D2EA598 

28EB2DF8834C842EA598C914D88AA980A83820 

5D2A4CCA2EC92AD027ADC23A.4 

1388 DATA D022A91B2eD82DF88AA941A83A20 

5D2A4CCA2EA98728EB2DD88AA985A83A2e5D2A 

4CCA2E28D62DF8034C722EA6, 581 

1310 DATA A5A4A4B59999D43AA9FF9599205F 

2D2O972D4CC92D28D82DF8034C962EADC23AC9 

11F81828E92DF8834C7B2EA6, 958 

1328 DATA A5A4A4B9D43A9599A9FF99D43AD8 

D82e7925D8E3A4A4A6A5B9D43A9D5E3BA9FF99 

D43AA988A839285D2AA598C9, 566 

1330 DATA 2AF0892e5F2028972D4CCA2EADCD 

3AD8F2A926A2858DCD3A9DE23BA2eC9D5E3B20 

7925A6A5A9159D5E3BD0D7A2, 873 

1348 DATA 6DBD5E3B3O07E8EO7190F88A6O86 

A5A90068C916B0034C572EC91CF00EC92OFO8A 

C92AF8834C692E4C92244C08, 768 

1350 DATA 252eEB2DF08AA59828D82DFee34C 

842EA598C9e9D826ADD13AF8834CB12E20E92D 

F8834C7B2EA993A037285D2A, 789 

1368 DATA A9188DD13AA6A59599285F2D4CCA 

2EC98FD8152044DAADC73A85D420FB2DA9DBA0 

38205D2A4CCA2EC911D04BAD, 74 

1370 DATA C23AC9eBF008ADC33AAEC43AD0e6 

ADC53AAEC63A85A786A8A9D3A038285D2AA211 

Ae0928772A2e44DAA5A785D4, 613 

1380 DATA 20FB2DA9D7A838285D2AA211A88A 

28772A2e44DAA5A885D428FB2DD851C928De26 

ADDO3AFO034CB12E2OE92DF0,873 

1390 DATA 834C7B2EA993Ae372e5D2AA9218D 

D83AA6A59599285F2D4CCA2EC915D817ADCF3A 

D889A9C8A838285D2AD015A9, 815 

1488 DATA BAA838285D2AD8eC8AAABD9F26E8 

BC9F262e5D2A4CCA2EA8373F398437C937DA37 

84373F39DA37183884378437, 371 

1418 DATA 843784378437DA378437B6378437 

84375838883884378437703870388437953884 

37843784377D387D38843784, 576 

1420 DATA 3784378437B637843784379538DA 

3784377438A209DDO527F0O6CA1OF84C572E4C 

A8258224880FH17181A1E1F,303 

1430 DATA 2eD82DDeO34CA82EA5902OEB2DF0 

834C842EA598C98AD02AA203ADC83AFO12A900 

8DC83AA9029DE23B8599285F, 433 

1448 DATA 2D4CCA2EAD5F3BC987Fe834CBA2E 

8EC83AA924D0E4C98BD821AEC93AF88EA9e88D 

C93AA9F3A838285D2AD88BE8, 884 

1458 DATA 8EC93AA9O2Ae39205D2A4CCA2EC9 

OCD00OADC53AD818e9O88DC53A4COF2eC9ODD0 

0DADCe3A38D8E9888DC63A4C, 754 

1468 DATA 0F26C98ED83BADC53ACDC33AD833 

ADC63ACDC43ADe2BADCA3AF0262eB22AA98E8D 

C6028DC802A9008DC502A20C,86 

1470 DATA AO062O772AA955A03A285D2AA922 

8D2F824CD4274CBA2EC90690834C572E20EB2O 

F8O34C842EA59ODO14A9228D,370 

1480 DATA CC3A8599A98485982O5F2D202A2D 

4CC92DC981D889A93FAe39285D2AD831C983De 

89A9C9A837285D2AO824C905, 904 

1490 DATA D089A9C7A036285D2AD817C922F0 

OCC923F0O8C925Ffl04C927D00AA953AO39205D 

2A4CCA2E4C572EA91520D82D, 664 

1500 DATA FOe34CC32EA5982eEB2DF08AA59O 

28D82DF8834C842EADCF3A080AA9C8A838285D 

2A4CCA2EA955A038285D2AA9, 732 

1518 DATA 888DCF3AA598C981D81EA99FA839 

2e5D2AA9238599A2819DE23BE89DE23BA98385 

96205F2D202A2D4CCA2E28D8, 686 
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1528 OflTO 20F8834C9e2EA590C5iaD0eAA9AF 

O039285D2a4CCA2EC918FOe34C632EADC23AC9 

13DeF6A9278599A2869DE23B,950 

1538 DATA A91585942e5F2D2e2A2D4CC92D2e 

EB2DF0834C842EA58FC9189e034CA82EA59eC9 

14D8834C9224C983Fe034C57,422 

1548 DATA 2EA91D2eD82DD88FA9258599A2e4 

9DE238A9118594D8C8A9ie28D82DDe8AA9C4A8 

392e5D2A4CCA2E4CC32EA58F, 549 

1558 DATA C926F8834C692EADCB3aD08BA9e9 

8DCB3A8DD23A4CC92D4C8D2EA92128D82DFe83 

4CC32EA59e28EB2DFe834C84, 612 

1568 DATA 2EA59eC9eiD88AA90BAe39285D2A 

4CCA2EC9e6F8e34C572EA9288599A2879DE23B 

8DCA3A4CD52828EB2DF8834C . 689 

1578 DATA 842EA598C987Fe834C572EA91920 

D82DD82FADC83AFei42eB22AA289Ae8328772A 

A9E9A839205D2A4C192EA929,111 

1588 DATA 859AA2889DE23BA9828D883BA283 

9DE23B4CD5284CC32E28D82DFe834C9e2EA59e 

C91EF0034C572EA4A4A9FF99,475 

1598 DATA D43AA941Ae38285D2AA91426EB2D 

De0FA6A5A92A9599A2ie9DE23BE89DE23B285F 

2D28972D4CCA2E28D82DD883.458 

1688 DATA 4CA82EA91E2eD82DF8834CC32EA5 

9828EB2DF8BA4C842EC91CF887C92eFee34C57 

2E4C9224488A489848Ae85BD. 514 

1618 DATA 4F2ABC5e2A8D0AD48D18D88CODD0 

E68568A868AA6840786078e878e86088888e6O 

88FeO0A20e8D44838C45e3A9,744 

1620 DATA 898D4283A97F8D48838E49834C56 

E4A28D8655845460A919D8e2A9648D88D2A9AA 

8DeiD2A9e08514A514C985De,425 

1638 DATA FAA2808E81D2CA8EFCO268BDC32B 

85868DD62B8587A818A9e8918688ieFB68A948 

8D0ED4856AA208A98C8D4283,815 

1648 DATA 28S6E4A2808E4B03A9e38D4283A9 

F48D4483A9348D4583A98C8D4Ae32856E4A988 

8D88D48D2F828D8DD88D8ED8 , 166 

1658 DATA 8D8FD88D18D8A2e89DC0e2CAieFA 

A98E8DC582A9748DC482A2018EF002E88e52A9 

7O85108D8ED2e0A9EDA0352O,568 

1668 DATA 5D2AeeA9F8A0352O5D2Ae8ADFC82 

C9FFFeF9ft8A2FF8EFC8229C0F00620802A4C25 

2B98A20DDD712BFeF2CA18F8,534 

1678 DATA B97F2BC92OF010C99BFO0CC97EF0 

88C9619eDCD838E928A07F8483A4838ClFD8A2 

e8CA18FDC68318F2681C2C27, 419 

1688 DATA 3C36378F26e2222686078E6C6A3B 

8A8B6B2B2A6F8870759B692D3D768e638C8D62 

787A348833361B3532312C20,818 

1690 DATA 2E6E88602F81728e65797F747771 

39883O377E383C3E6668648082677361284e00 

6e75759DC5ED153D658DB5DD,540 

1788 DATA 052D557DA5CDF51D3C3C3C3C3C3D 

3D3D3D3D3D3E3E3E3E3E3E3E3FD8A218A9289D 

8006CA18FAA88C20752AA2FF, 621 

1710 DATA 86888EFC82E8868420252BC928F8 

08C97EF004C99BDe862e882A4CF42B2eFB2C28 

56E4E68420252BC99BF832C9, 78 

1728 DATA 7ED818C68430E32OFB2C2O56E4A5 

84F0BBD0E520FB2C2856E4E684A584C91890D7 

20802A28252BC99BF806C97E,18 

1730 DATA F8D4DOF820FB2C86802856E4A018 

18B92D3E99053E2A2A2A2A29O3AAB9053E291F 

1DBF2B990006A980992D3E88,266 

1748 DATA 18DF60A9008585A580F029D8A555 

8A0A18e93e8DO0D8AD2B02F00BA9F08D5B2A85 

81A93C8582A581C682De88A8,526 

1758 DATA 1E848249F085818D5B2A4C5FE4A9 

B885AB85AC85ADA99B85AFADC03A85D4ADC13A 

85D528AAD928E6D8D8A8FFC8,224 

1760 DATA B1F310FBA283B1F3898095ABCA88 

10F6A221A88828772AA9ABAee82O5D2AeeA28B 

8E42e3A28e8E48838E498360,941 

1778 DATA A945A836285D2A60A2e9209E2AE8 

2e9E2AA0094C752ftft28D289E2AE8Eei39eF860 

A282209E2AA000A20e86A6B5,496 

1780 DATA 9330OAB0592D999D3CE6A6C8C8E8 

E0e69OEDA5A6DOeCA88228752AA98CA0392O5D 

2A682E3325373524A203209E, 231 

1790 DATA 2AE8E0099eF8A00320752AA2O086 

A68e8CB5993O0CE6AeAABD9E34BCC9342O5D2A 

A68CE8E0O690E7A5A6DO07A9,45 

1800 DATA 25A037205D2Ae0201F2DAO8D2875 

2AA2O886A&8e8CBDD43A30OCE6A6AABD9E34BC 

C9342O5D2AA68CE8E0869OE6,2 



1810 DATA A5A6D887A925A837205D2A6O2011 

2DA9A4Ae36205D2A4CCA2EA9FFA205DDD43AF0 

05CA18F88A6O86A4A9OO60A9 , 123 

1820 DATA FFA285D599Fe85CA10F98A6086A5 

A988e828AAD920E6D8D8AOFFC8BlF31OFB297F 

91F3C8A99B91F3A5F3A4F44C,196 

1830 DATA 5D2AA28AA88528772AA92AA83928 

5D2AA218A8e728772AA968A039285D2A4CE81F 

A218A9eC9D42834C56E4A9FA , 384 

1848 DATA A8344C4D2EA9F7A834A2189D4483 

989D450368A9eBA83e285D2AD86AA9C7Ae362e 

5D2AD061A982A8372O5D2AD0,92 

1850 DATA 58A9D9A036205D2AD855A9EDAe36 

285D2AD84CA9BCA836285D2AD843A9A9A83628 

5D2ADO3AA913A837205D2ADO,87 

I860 DATA 31A98BA0372O5D2AD022A978Ae37 

2e5D2ADei9A984A837205D2ADO18A9E3A83828 

5D2AD887A9A4A838285D2A28,589 

1870 DATA 7C2A4C472128882A4C3A224E5345 

57554451584154414B47455458554C44524F52 

454D4C4F4F45584153454152,918 

1888 DATA 45415855535e52454F5845434C4F 

5553454B494C53484F464952425245534D4149 

4E53554E53484F4C554E4C43,348 

1898 DATA 5554584F554C5542475245574541 

474F2092249224C32E08258C25A825A825A825 

F5268F270F27DA27A82E692E ,68 

1900 DATA C32E45284528A82EAQ2EA228DE28 

292945297F29C929872Ae72A232A484154444F 

4F4C4F435343414752415452,464 

1910 DATA 4141495253574943414253494743 

4150475245524544474F4C53494C5748494741 

5550455253434F4449534455,818 

1920 DATA 43534C4F424F4C554E4950495353 

43524E4F544944204355544341525752454D41 

534741534B4E495348414D41 , 182 

1930 DATA 4E5355494B455942524542555449 

4E56A213A9009DCO3ACA1OFAA2OOA9FF9D5E3B 

9DDA3AE8E0849OF5A2e59DD4 , 490 

1940 DATA 3A95999593CA1OF6A2018ECF3A8E 

C23AA9208DC53AA9A88DC63AA225BD48309DE2 

3BCA1OF7A227BD6E30BC9630,254 

1950 DATA 99DA3ACA10F4A21FBDBE38BCDE38 

995E3BCA18F460000iei82838485868788898A 

8B8C8DeE8F18181112131414,334 

1960 DATA 15161718191A1B1C1C1D1E1F2821 

O2O0e40402O6018Fe604090705868986eA8813 

e915eF8D8C8F0C13108E040F , 1 

1970 DATA 0E138F1412091313OB01OCOD1418 

191C1D20242526272D323638393B3F47494A51 

565A5B5C5D5E63666E727475,366 

1980 DATA 767B7E8214070016080917011902 

0A0F8B10111F110C0D1B1C031E1A1D12040513 

OE2O8600ei8687eC1213181E,480 

1990 DATA 2A2B3031363C3D424344484E5455 

5A6O666C727374787E536F6E61722073706865 

726596457363617065207475,551 

2000 DATA 62e59B4163636573732e74756E6E 

656C9B4361707461696E277320717561727465 

72739B466F72776172642070,149 

2010 DATA 6173?36167659B526164696F2e72 

6F6F6D9B4C6F6E6720636F727269646F729B53 

6F6E61722073746174696P6E,831 

2020 DATA 9B42616C6C61737420636F6E7472 

6F6C9B436F6D6D616E642073746174696F6E9B 

4E617669676174696F6E2063,480 

2030 DATA 656E7465729B55707065722O6D69 

7373696C65206261799B546F727O65646F2072 

6F6F6D9B5765617O6F6E7320,124 

2040 DATA 6C6F636B65729B53686F77657220 

7374616C6C739B437265772773207175617274 

6572739B47616C6C65799B56,873 

2050 DATA 656E74696C6174696F6E20647563 

749B46616E20726F6F6D9B4D697373696C6520 

636F6E74726F6C9B45717569 , 566 

2060 DATA 706D656E742O6261799B4C6F7765 

72206D697373696C65206261799BFE0B172538 

4853616F7F8FA1B3C0CFDDED,642 

2070 DATA F4058E1E2C303131313131313131 

31313131313131313132323232436C6F736564 

2068ei7463689B4CeF636B65,863 

2080 DATA 642O646F6F729B426C616E6B2073 

63616E6E65729B436C6F736564286772617465 

9B54726169746F722e776974,448 

2090 DATA 6820786973746F6C9B436C6F7365 

64206169726C6F636B9B4C6F636B6564206172 

6D696E67207377697463689B, 37 
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2109 DflTO 506F776572206361626C659B5369 

67eE9B44656ie42963617074ei696E9B4772e5 

656E20627574746F6E5B5265,632 

2118 DAT* 6428627574746F6E9B476F6C6429 

627574746F6E9B53696C76657229627574746F 

6E3B57686974652062757474, 388 

2128 DflTfl 6F6E?B44657874682e676175e7e5 

9B5e65726973636F7e659B4469676374616C29 

646573786061799844756374,33 

2138 DfiTfi 29646F776E28746F2866616E2872 

6F8FeD9BS36C6F7428696E28ei69726C6F636B 

9B426F6C7465642D646F776E,417 

2148 DATft 28736F6E617228756E69749B5869 

73746F6C9B54696E7928736372657764726976 

65729B537569636964652e6E,88 

2158 DflTa 6F74659B53656375726974792949 

449B4361626C6528637574746572739B436172 

649B5772656E63689B476173, 769 

2169 DflTfl 286D61736B9B44756C6C286B6Ee9 

6665985368616D786F6F9B5461637469637329 

6D616E75616C9B5261646961,4ee 

2178 DflTrt 74696F6E28737569749B4B65799B 

4F79656E2868617463689B4F78656E20646F6F 

729B41637469766528736361,15 

2188 OftTfl 6E6E65729B4F78656E2967726174 

659B446561642974726169746F729B4F79656E 

296169726C6F636B9B416374, 661 

2199 DftTfi 697661746564287377697463689B 

53657665726564296361626C659B526164696F 

61637469766520736F6E6172,261 

2288 DATA 2e756E69749B6Ji7783919EB2ClD6 

E2E7F4818C1826333F49596F7F9690flEBBC7D5 

D<»ElE«»F5FD9ClBlF2fl34434E, 994 

2219 DftTft 5B68798732323232323232323232 

32333333333333333333333333333333333333 

333333343434343434343434, 534 

2228 DATA 3434453A9B433A9B44313A47414D 

452E44415498427269616E284D6F7269617274 

792773984352415348294449,385 

2238 DATA Se45982843293139383428414E41 

4C4F4729436F6D7e7574696E679B5e72657373 

28A8D3D4ClD2D4A82e746F2e, 786 

2249 DATA 796C617928eEe5772867616D659B 

58726573732eA8CFD8D4C9CFCEA828746F2872 

6573746F7265286F6C642867,858 

2259 DATA 616D659B526573746F7265296672 

6F6D28C469736B296F7229C361737365747465 

3F9BA8C3D2ClD3C8A8C4C9De, 478 

2268 DATA C5A1A8A8D4CDA9A8A8A8A8A8A8C5 

D6C5CED4A8A3A8A8A8A8A8A89BA8CCCFC3C1D4 

C9CFCEA828A8A8A8A8C5D8C9, 485 

2278 DATA D4D3Ae9BA8A8DeC9D3C9C2CCC5A8 

28A8A8A8A9C9D4C5CDD3A89BA8A8A9A9A8A8A8 

A8A9Ae9BA8A9A9A0AeD7C8Cl, 221 

2288 DATA D4Ae9BA8A8C8ClD8D8C5CED3A828 

A8A8A8A8A8D9CFD5D2A828A8D2C5D3D9CFCED3 

C5Ag9BA8AeA8A8A0A8D9CFD5, 241 

2298 DATA A828A8A8AeA8A8A9ClD2C5A929A8 

C3ClD2D2D9C9CEC7Ae9B53796E7461783A9B42 

ei6428636F6DeDei6E649B42,482 

2388 DATA ei642e7e65?2629B426164286E6F 
756E9B54686174277328696D786F737369626C 
659B43616E277428676F2974, 759 

2318 DATA 6861742877617996547978652859 

2874eF287175e9742867616D653A9B4F6B6179 

9B416C72656164792e686F6C, 156 

2328 DATA 64696E672869749B49736E277428 

686572659B43616E277428646F287468617428 

7965749B596F75722961726D,487 

2338 DATA 73286172652e66756C6C219B4E6F 

7428656E6F7567682e726F6F6D29686572659B 

4265296D6F72652873786563,761 

2348 DATA 696669639B596F7528646F6E2774 

28686176652869749B4E6F7468696E679B5479 

7ee5204E2853284528572855, 874 

2359 DATA 286F7228449B526566657228746F 

2e697428627928636F6C6F729B547978652849 

28666F7228696E76656E746F,64 

2368 DATA 72799B446F65736E27742968656C 

789B57687928626F746865723F9B5365656D73 

286F7264696E6172799B596F,788 

237© DATA 752e666F756E6428736F6D657468 

696E67219B497427732961697274696768749B 

456E656D7928617979726F61,158 

2389 DATA 6368696E67219B53637265776564 
28696E297B6C6163659B4C6F6F6B732864616E 
6765726F75739B4E65656473,785 



2398 DATA 28eB657928746F28616374697661 

74859B426F6C747328ei7265287469676d7428 

262872757374799B44414E47,919 

2488 DATA 45523A2852616469ei74696F6E28 

7A6F6E65219B427261696E7328626C6F776E28 

6F75749B5368616D786F6F28,222 

2418 DATA ei6CeC28757365642875789B4241 

4E47219B416363657874732873656375726974 

792849442863617264984974, 479 

2428 DATA 28676C6F77739B53e5e52878686F 

746F28696E28414E414C4F47282331389B4ie3 

65296F662853786164657321, 387 

2438 DATA 9B456173696S7228736169642874 

68616E28646F6E659B4FeE6C7928312862756C 

6C65749B4E6F2862756C6C65, 667 

2448 DATA 74739B58283D9B59293D9B464154 

484F4D539B4EeF7468696E672868617979656E 

739B5375622B6C6576656C73,57 

2458 DATA 286F66669B53756228646976e573 

9B4E6F6E65964128636C6F7584286F6628796F 

69736F6E6F7573286761739B, 556 

2468 DATA 6B696C6C7328796F752e696E7374 

616E746C79219B4C6F636B2869732876657279 

287365637572659B416C7265,51 

2478 DATA 616479286F79656E9B796F752961 

72652e444541449B456Ee56D79286361787475 

726573287468652873756228,388 

2488 DATA 616E649B49742866616C6C732864 

6F776E2874686528786978659B4C6Fe36B2864 

657374726F796564219B5472,745 

2499 DATA 79286578616D696E696E67287468 

696E67739B5363726577647269766572277328 

746F6F2e74696E799B4B6579 , 326 

2588 DATA 28776F6E2774286669749B41286A 

6FeC74286F66286869676828766F6C74616765 

9B54726169746F722873686F,638 

2518 DATA 6F747328796F7528616E649B5375 

62286869747328e26F74746F6D219B4128626C 

6173742e6F6628726164696F,941 

2528 DATA 61637469766974799B426F6C7473 

28776F6E2774286C657428796F759B436F6E67 

726174756C6174696F6E7321,539 

2538 DATA 9B536176652867616D6528746F28 

C469736B286F7220C3617373657474653F9B43 

eF6E6Ee563746S6429746F29,18 

2549 DATA 6361626065988888888988888888 

88888888888888808888888888888880888888 

888888888086888888098888,676 



CHECKSUM DATA 

(See p. 30) 



19 DATA 295,351,496,811,423,729,288,68 

3,555,573,694,613,29,285,197,6684 

168 DATA 749,198,962,93,491,39,155,941 

,287,88,522,688,216,516,706,6554 

1968 DATA 988,534,157,861,15,983,935,8 

81,228,633,824,685,189,983,116,8827 

1218 DATA 944,708,783,728,657,542,787, 

886, 838, 993,213, 263, 281, 961, 898, 18386 

1368 DATA 429,184,44,85,96,544,679,976 

,333,222,358,953,865,898,28,6597 

1518 DATA 911,24,783,994,156,61,875,18 

2,961,52,498,763,912,733,987,8724 

1668 DATA 951,36,677,622,158,85,45,928 

,938,343,792,788,788,219,815,8889 

1818 DATA 985,315,845,974,48,778,585,4 

86,885,645,282,458,956,165,618,8697 

1968 DATA 134,577,382,478,418,679,737, 

552,518,779,876,285,582,825,549,8267 

2118 DATA 598,676,767,688,464,638,859, 

679,393,228,920,433,555,654,755,9387 

2268 DATA 384,174,387,915,532,571,583, 

518,588,671,692,543,607,411,645,7973 

2418 DATA 278,389,691,821,789,697,376, 

584 , 566 , 567 , 528 , 718 , 673 , 498 , 8887 



(Assembly langvuige listing starts next page.) 



CRASH DIVE! (TH) 
by Brian riorlarty 
ANALOS Camputlna 'IB 
(C)l"?84 ANALOG Computing 

MflCRODEFlNITIQNS 

position macro 
syntax: 

POSITION HpOl.ypOS 

.MACRO POSITION 

.IF XaOZ .OR Xl>3'? .OR X2>23 
.ERROR "POS p»r«nietsr»" 
.ELSE 
. IF Xl-13 
LDY tXZ 
JSR P03IT13 
.ELSE 
LDX »%i 
LDY »5S2 
JSR POSIT 
.ENDIF 
.ENDIF 
.ENDM 

PRINT MACRO 



SYNTAX: 

PRINT <addr a« EOL-termln»ted string) 

.MACRO PRINT 
. IF X0O1 

.ERROR "PRINTE p*r«niet»ra" 

.ELSE 

LDA • <X1 

LDY • >'Xt 

JSR EPRINT 

.ENDIF 
.ENDM 



SYNTAX: 
TEXT <■ 



TEXT MACRO 



«tr Ing" > 

.MACRO TEXT 

. IF X0O1 .OR Xl>127 

.ERROR "TEXT parameters" 

.ELSE 

.BYTE y.»l,EOL 

.ENDIF 
.ENDM 



1 SYSTEM 


EQUATES 


OS boot -flag 








ZERO-PABE 




BOOT? 


»ei 




P0KM3K 




«10 


Interrupt mask 




RTCLOK 




*14 


system clock 




LMARSN 




»32 


left margin 




RMARSN 




»33 


right margin 




R0WCR3 




• 34 


cursor row 




COLCRS 




• 33 


cursor column 




RAMTOP 




• AA 


» pages of RAM 




FR« 




• D4 


■floating point register 


CIX 




• F2 


FP Index register 




INBUFF 




»F3 


FP pointer 




I 


P 


ABES 2-3 


DLI vector 




VDSL3T 


♦ B20B 




SRTIMR 




• a2ZB 


key repeat timer 
DMA control 




3DMCTL 




»«22F 


I 


8DLSTL 




• 0238 


D-llst addr 




CDLD3T 




»a244 


coldstart flag 




QPRIOR 




»a26F 


PMB priority 
player color 




PCOLR« 




*«2ce 




PCOLRl 




•02C1 


player I color 




PC0LR2 




• B2C2 


player 2 color 




PC0LR3 




• B2C3 


player 3 color 




COLORB 




• B2C4 


blayfleld color 




COLOR 1 




»«2C3 


blayfleld 1 color 




C0L0R2 




•azc6 


playfleld Z color 
background color 




COL0R4 




• I92C8 




CRSINH 




• 02F0 


cursor Inhibit 




CH 
ICCOM 




• 02FC 

• 0342 


keypress register 
CIO command 




ICBADR 




• 0344 


CIO addr 




ICBLEN 




• 0349 


CIO length 




ICAUXl 




»a34A 


AUX byte 1 




ICAUX2 
1 




• 034 B 
CTIA/QTIA 


AUX byte Z 




HPOSPB 


„ 


• D000 


h-pos player 




HPOSPl 


m 


• D001 


" 1 




HP0SP2 


« 


*D00Z 


.. 2 




HP0SP3 


" 


• D003 


.. 3 





31ZEPB 
3IZEP1 
SIZEP2 
S1ZEP3 
QRAFP0 
6RAFP1 
BRAFPZ 
3RAFP3 
C0LPF2 
CONSOL 
I 

; 

! 

AUDFl 

AUOCl 

flUDCTL 

RANDOM 

IRQEN 

) 

I 

! 

DMACTL 

M3YNC 

NMIEN 

I 

I 

I 

FflSC 

IFP 

ZFR0 



• D004 

• 000"? 

• D00A 

• D00B 
SD00D 

• D00E 

• D00F 

• D010 

• D018 

• D01F 



1 width player 
; •■ - 1 

\: ::§ 

I graphics player 

' !! 

i ; II 

f color register : 
i console keys 



• D200 

•Dzai 

• OZ08 

• D20A 

• D20E 



1 frequency channel 1 

} vol/dist channel 1 

i audio control 

I random • generator 

; Interrupt enable 



•D40e I DMA control 
" •D40A I wait for horz sync 
*D4eE t NMI enable 

FLOATING POINT 



• D8E6 

• D9AA 

• DA44 



! FP-to-ATASCII 
1 Integer-to-FP 
I clear FR0 



OS ROUTINES 



ClOV 

SETVBV 

3Y3VBV 

SIOINV " 

I 

I INTERNAL 



• E456 

• E43C 

• E43F 
»E4i3 



) CIO entry 

f set v-blank vector 

( 03 VBt entry 

I 310 Inlt 



INLINE 

SAMEDATA 

EDLI3T 

SCREEN 

! 



MEMORY ALLOCATION 

•0600 I text Input buffer 

•3AC0 f working area 

•3CZ0 ) start of E: display 

•3C40 I start of screen RAM 



I Baffle play database 
•- SAMEDATA 



EVENT 


•= 


• + 2 


event # 


PLACE 


«■ 


• ■H 


location 


SLAT 


*K 


♦ +1 


ship's latitude 


3L0N 


• • 


• +1 


ship's longitude 
missile latitude 


MLAT 


*a 


»+l 


MLON 


• ■ 


• +1 


missile longitude 


DEPTH 


• a 


• ■H 


sub's depth 

green button on/off 


GREEN 


*» 


»+l 


RED 


*m 


• ♦1 


red button on/off 


SWITCH 


*m 


• ■M 


arming switch on/off 


BREATH 


• B 


• fl 


holding breath? 


HATCH 


*s 


♦ ■H 


hatch opened? 


UNIT 


• « 


♦ +1 


unit dropped In rm 177 
sub crashed? 


CRASHED 


• « 


»+l 


BULLET 


♦ ■ 


• +1 


bullet used? 


SUIT 


*n 


• ■M 


suit searched? 


CAPTAIN 


*3 


• *! 


captain searched? 


BHOLD 


• ■ 


♦ ■H 


breath holding counter 


TRAITOR 


*■ 


• +1 


traitor watt counter 


HOLDINGS 


*M 


» + i 


current inventory 


VECTORS 


*» 


♦ ■H3Z 


current vector table 


OBJECTS 


*a 


• ■H3Z 


current object table 


NTRANS 


• K 


• ■V3B 


current translation matrix 


1 


MISCELLANEO 


JS 


EOL 


K 


• 9B 




SPACE 


- 


• Z0 




i 
1 


ZER0-PA3E 




) 


«« 


• 80 




1 

t Cursor 


con 


trol 




CURSEN 


• ' 


• +1 


cursor on/off flag 


CSHAPE 


*■ 


♦ +1 


current cursor shape 


BLINK 


• « 


♦ ♦1 


cursor blink timer 


1 Keyboard handler 




CLICK 


*m 


• ♦1 


key click counter 


LENGTH 


»" 


»+l 


line length register 


1 DLI control 




DLICOL 


• « 


• ♦1 


DLI color Index 


i 

1 Screen 


Clearing 




CLPOINT 


*■ 


♦♦z 


screen clear pointer 
window Clear index 


CINDEX 


•■• 


• ♦1 



I Parser 

I 

PBUFF 

PDEX 

LBREAK 

VCODE 

UCODE 

NCODE 

DOVECT 

CURVECT 

CUR0BJ3 

NEWPLflCE 

VPNT 

OPNT 

INVPOS 

ROOMPOS 

ANY? 

LATSHOM 

LONSHOW 

VLAST 

ULAST 



• s 



»-f3 
»-n 
»+l 

»-n 

«+! 

• +1 

• l-Z 

• ♦6 

**1 
<n-2 
*f2 

• •H 

• ■M 

• f i 

• +1 
»•»! 

• •H 



pari 
scat 

pos, 
vert 
unti 
trai 
verl 
curi 
curi 
nexi 
addi 
addi 
pos: 
pas: 
f la, 
lat: 
lohi 
las< 
las^ 



ing bu 

nl hg i 

of sp 

code 

ansl at 

slated 

execu 

ent ro 

ent ro 

room 

of cu 

of cu 

tlon i 

tlon i 

for e 

tude t 

itude 

verb 

noun 



f f e 

nde 

ade 

» 

ed 

no 
tlo 
om 
om 
cod 
rrm 
rra 
1 
n r 
mpt 
o d 
to 



char 

noun code • 
un code # 
n vector 
vectors 
Ob iects 

nt v-buffer 
nt o-bu-ffer 
nventory buffi 
ooffl buffer 
room/inv 
splay 
di splay 



> 

o 

m 

l>0 



Event counter 
EBUFF •» »+3 I printing buffer 
INITIALIZATION 



• 1FB0 



LDX •0 

8TX COLDST 

INX 

STX BOOT? 

JSR SIOINV 

JMP TITLE 



for sound init 



CUSTOM DISPLAY LIST 



.BYTE »70,^70,^70.^70 I blank 32 lines 

.BYTE •4Z! <stREEN, >SCREEN I text W/LM3 

.BYTE •90,»10 I blank 4 w/DLI 

.BYTE ^02 I text (location) 

.BYTE •90, ^10 I blank 4 w/DLI 

.BYTE tez I text (exits) 

.BYTE •90, ^10 I blank 4 w/DLI 

.BYTE »02,^02,»a2,»a2,^02,»0Z I text 

.BYTE »90,»1B ! blank 4 w/DLI 

.BYTE •02,^02 i text (events) 

.BYTE •90, •IB ; blank 4 w/DLI 

.BYTE •02,^02 ; text (response) 

.BYTE •30,^80,^ia I blank 4 w/DLI« 

.BYTE •0Z,^02,^02,^02,^02,^02 I text 

.BYTE ^70 I blank 8 

.BYTE •41, <DLIST, >DLIST I JVB 

TITLE SCREEN 



( v-i terns) 



(1-ltems) 



> 

z 
> 

r- 
O 
Q 

O 
O 

c 

H 
Z 

o 



LDX ••FF 

TXS 

JSR NEWSCREEN I reset E: 

POSITION 12,4 

PRINT T0 I -Brian Morlarty's" 
POSITION 23,7 
PRINT Tl I "CRASH DIVE- 
POSITION 8,9 
PRINT T2 I "(0 1984 ANALOB Computlng" 



POSITION 3,16 

PRINT T3 I -Press STAST 

POSITION 3,13 

PRINT T4 I -Press OPTIOH 



to play new game- 
to restore old game 



LDA ta 

STA EDLIST+12 I modify 

STA EDLIST-H3 I display list 



LDA »S22 
STA SDMCTL 
JSR BEEP 

I Malt for selection 

I 

POLL 



I restore screen 



BADPOLL 

I Start new game 



LDA CONSOL 

CMP *7 I scan until a 

BEO POLL t key is pressed 

LDX CONSOL 

CPX •? 

BNE LETSO 

CMP #6 

BED NEMBAME 

CMP #3 

BEO RESTORE 



START pressed? 
yes. do a new game 
OPTION pressed? 

restore old game 



1 yes 



JSR BQOP 
JMP POLL 



en 
en 

c 
m 

<» 



NEWSAtlE 


J3R INITDflTft 






OMP PUAYSCREEN 


! Re«tor« a pravlau* g 


ama 


RESTORE 








POSITION 3, 


20 




PRINT T3 1 


"Raatore fro 




J3R BEEP 




DORT 


JSR SETKEY 






CMP •'0 i 


dl»k7 




BEQ BETDI3K 






CMP *'C i 


tape? 




BED SETAPE 




DORTERR 


JSR CLOSEl 
JSR BOQP 
JMP DORT 




) Q»t gamv from dl«k 




SETDI9K 


JSR DPOINT 
JMP READOPEN 




; Get game from tapa 




BETftPE 


JSR TPOINT 




REflDOPEN 








LDA »3 


OPEN command 




STA ICCOM.X 






LDA ^4 1 


READ 




STA ICAUXl.X 






L.DA *0 






3TA ICAUX2,X 






JSR CIOV 






BMI DORTERR 





I Bet game data thru lOCB «1 

I 

BETDATA 

LDX vtie 

LDA * <OAnEDATA 

STA ICBADR.X 

LDA » >BAMEDATfl 

STA ICBADR+1,X 

LDA »»4B 

STA ICBLEN.X 

LDA •»01 

STA ICBLEN+l.X 

LDA »7 I SET RECORD 

STA ICCOM.X 

JSR CIOV 

BMI DORTERR 

JSR CLOBEl 

PLAYSCREEN INIT 



I 

I 

, 

PLAYSCREEN 

JSR NEMSCREEN ! raast E: 

i Enable cuaton display list 

LDA « <DL1ST 

STA SOLSTL 

LDA • >DLiaT 

STA 3DL3TL-H 

I Print title & label* 



PRINT T6 ! 

LDA «12 i 

STA RMARBN ! 

PRINT T7 ( 

PRINT TB ; 
JSR BAR 
JSR BAR 
JSR BAR 

JSR BAR ; 

JSR SAYWHAT I 

PRINT Til I 

JSR SAYWHAT ) 

PRINT TI2 1 
JSR BAR 

JSR BAR S 
LDA »39 

STA RMARBN I 

LDA »»C'l I 

STA PCOLR« I 



"CRASH DIVEI (TM) EVENT 
«et right margin 
for wraparound 
"LOCATION/EXITS" 
"VISIBLE ITEMS" 



4 blank bar* 

"WHAT" 

"HAPPENS/YOUR RESPONSE" 

"YOU ARE CARRYING" 



more blank bars 
reset 



Setup p/n borders «i mask 

position left 



LDA »48 

STA HPOSPl 

LDA »2e2 

STB HP03P2 

LDA #i4 

STA HP03P3 

LDX »233 

STx BRflFPl 



and 

right borders 



I title cover 
; set up 



STX SRAFP2 

STX GRAFP3 

INX 

STX SIZEPa 

INX 

STX BPRIDR 

LDA »3 

STA BI2EP1 

STA SIZEP2 

STA SIZEP3 

LDA ••FB 

STA CSHAPE 

LDA 430 

STA BLINK 

LDA »13 

STA LMARBN 



I side borders and 

I title nask 

I - 

* set cursor width 

1 - 1 

I set plav**" priority 

I set border 

I and mask 

I widths 

I inlt 

3 cursor shape 

I and 

! blink timer 



I Inlt left margin 



LDY • <IMMVBI 

LDX • >IMnVBI 

LDA #4 I 

JSR SETVBV 

LDA « <DLI 
STA VDSL3T 5 
LDA • >DLI ( 
STA VD3LST+1 1 
LDA »»C0 ; 
STA NMIEN I 

LDA PLACE 
JMP REENTRY 



) set VBl vector, 
f specifying 
Immediate-mode 



tell OS where 
Me put our 

DLI service routine 
set bits 6 a< 7 of NMIEN 
to enable DLIs and VBIs 



1 
I 


iXTEVENl 


EVENT GENERATOR 


1 

1 

Ni 


r 










LDX 


• »FF 


( empty stack 






TXS 




; just In case 






JSR 


SHOWEV 


f show event « 






INC 


EVENT 


update 






BNE 


RADIO 


1 event 






INC 


EVENT*! 


1 counter 


1 


Handle 


room 




RADIO 









LDA PLACE 

BNE ENEMY 

LDA *32 

JSR 0WNIT7 

BED ENEMY 

JSR NEWSCREEN 
POSITION 8,3 
PRINT T79 I 

JMP KILLS 



got suit? 



A blast of radioactivity" 



I 

1 Check for enemy takeover 

I 

ENEMY 

LDA EVENT 

CMP #32 

BNE LUNGS 

LDA EVENT+l 

BNE LUNGS 

LDA DEPTH 

BNE LUNGS 

JSR NEUSCREEN 
POSITION 7,3 
PRINT T67 ) "Enemy captures the sub and" 

JMP KILLS 



Limit breath-holding 



LDA BREATH 

BED POISON 

DEC BHOLD 

BNE POISON 

LDA (0 

STA BREATH 



LOl ng It? 
- skip thli 



holding 

no - skip 

else decrement count 

continue If NZ 

else 

release hold 



I Handle poison atmosphere 
I 



LDA HATCH 

BEO DOTRAIT 

LDA #2B 

JSR 0WNIT7 

BEQ DOTRAIT I 

LDA BREATH 



; hatch opened? 
; not yet 
J got the 
1 mask? 

yup - you're safe 
oSdlng breath? 

g, otherwise 



ha 



_ Tg or 

BNE DOTRAIT ! good thing 
JSR NEWSCREEN 

POSITION 8,3 

PRINT T62 I "A cloud of poisonous gas" 
JMP KILLS 



I Handle traitor 
I 



LDA TRAITOR 
BPL NTRAIT 
JSR NEMSCREEN 



NTRAIT 



POSITION '■ 
PRINT T77 
JMP KILLS 

LDA PLACE 
CMP eis 
BNE TRE8ET 
LDA •4 



I "Traitor shoots you and" 



Is this 
room 19? 
we're sa-fa 
is the traitor 



JSR INROOM? I lurking? 

BNE TRESET ! thankfully not 

DEC TRAITOR I else reduce wait time 

JMP DOCRASH 

LDA •! 

STA TRAITOR 



CO 

m 



{ Change sub coords, 
1 



handle crash 



LDA CRASHED 
BNE PARSER 
LDA RANDOM 
AND tSFS 
STA SLAT 
LDA RANDOM 
AND »»F8 
STA SLON 
LDA RED 
BEQ PARSER 
LDA DEPTH 
CLC 
CLD 

ADC »8 
STA DEPTH 
BPL PARSER 
STA CRASHED 
JSR CLWH 
PRINT T43 I 
PRINT T78 I 

INPUT PARSER 



"BANS I " 

"Sub hits bottom' 



LDA •»22 

3TA 3DMCTL 

JSR BETLINE ) put line Into INLINE 

JSR CLWH 

LDX LENGTH 

CPX #1 ! If length is I 

BNE DOCLAUSE I check for legality 

1 Check for a legal single-char command 
> 



LDA INLINE 

LDX as 



get the 
Inlt sea 



rch index 



CMP SCOMS.X 

BEQ EXSINS 

OEX 

BPL LEBSIN8 

JSR SYNERR 

PRINT T14 J 
JMP BADPARSE I 



f matched* go do It 
} otherwise 
t keep searching 
i error, so print 
"Invalid command" 
and try again 



> 
> 

o 
o 

o 
o 

"D 

c 

H 

z 
o 



j Execute a single-char command 

I 

EXSINB 

LDA SVECTL.X I fetch the Isb 
STA DOVECT I and 

LDA SVECTH,X I msb of the 

STA DOVECTfl I execution addr 

JMP <DOVECT) I and do It! 



I Find thi 
I in the L 



1st 



[pace character 
response 



LDA tSPACE 

STA PBUFF+l 

STA PBUFF+2 

LDX tl 



LDA INLINE, X I length is In X 
CMP ttSPACE I is it a space? 



BEQ ENDV 

INX 

CPX LENGTH 

BCC FINDl 

JSR SYNERR 
PRINT TlS 



I else keep scanning 



verb Is no good, so or 
"Verb not recognlred 



I 



JMP BADPARSE ) and try again 



; Space char found, so record its 

{ position and move the first half 

1 of the clause into the parsing buffer 

ENDV 

STX LBREAK 

CPX #2 

BCC TOVB 

LDX #2 
TOVB 



> 

o 
m 

en 

00 



LDA INLINE, X 

BPL TOVB 
i Check for a leg«i verb 



i 

VNEXT 

V3CAN 



UDX •«, 

STX VCQDE 

8TX PDEX 

LDY me 



I init varb IndvK 



) Inlt buffar char ind«x 
LDfl PBUFF.Y I get a char from buf-far 



CMP verbs! X 

BNE NEXTR^- 

INY 

CPY »3 

BCC VSCAN 

BCS LEGftLV 

INC VCODE 

LDX PDEX 

INX 

INX 

INX 

CPX »NV»3-H 

BCC VNEXT 

BCS BADVERB 



• tch? 
nope 



try another verb 



111 3 chars match 
verb la legal 



out of verba? 

nope - keep acanning 



I Verb la legal, 
t vector 



p ac 
elae verb la worthleaa 

ao fetch Ita execution 



LDA VCDDE ( 
CMP •2B ( 
BNE naVE2 ) 
PRINT T29 I 
JMP BADPARSE 



fetch verb 
If If a BO 
warn user; 
"Type N s 



E W U or D" 



) Move the second half of the 

i clause Into the parsing buffer 



LDX LBREAK 

INX 

LDY «« 

LDA INLINE, X 

STA PBUFF.Y 

INX 

INY 

CPY #3 

BCC nOVEN 



I fetch DOS. of space char 

I plus I 

J Inlt buffer char index 



; fetch character 
stuff Into buffer 



until 
have b 



characters 
an moved 



Check for a legal 



NNEXT 
NSCAN 



LDX »e 
STX UCODE 



STX PDEX 
LDY #0 



noun 
I Inlt noun Inde 



Inlt buffer char Index 
from buffer 



LDA PBUFF.Y I get a cha 

CMP NOUNS X I match? 

BNE NEXTRY2 I nope - try another noun 

INX 

INY 

CPY »3 

BCC NSCAN 

BCS LEGALN 



if all 3 chars match 
the noun Is legal 



INC UCODE 

LDX PDEX 

INX 

INX 

INX 

CPX »NN«3*3 

BCC NNEXT 

JSR SYNERR 

PRINT TIA 

JMP BADPARSE 



{ out of nouns? 

t nope - keen scanning 

i else noun is garbage 

I "Noun not in vocabulary" 



Noun's code • is in UCODEf 
verb's code » Is in VCODEI 
verb execution addr is in DOVECT 



tch 
cution addr 



LDA VCODE I 

STA VLAST 

ASL A i 

TAX I and 

LDA VVECTS.X ( save it 

STA DOVECT I in DOVECT 

INX 

LDA vvecTS.x 

STA DQVECT+l 

LDA UCODE 

STA ULAST 

CMP »39 I 

BED DOBUTT 

CMP OAg I 

BEQ DQINVE 



Has it BUTTON? 
uas it INVENTORY? 



I 

; Hand] 
DOBUTT 



TAX 

LDA NTRANS, X 1 

STA NCODE 

JMP (DOVECT) I 

e BUTTON 



translate noun 
execute verb 



PRINT T3B I 
JMP BADPARSE 



"Refer to it by color" 



I Handle INVENTORY 

) 

OOINVE 



PRINT T31 
JMP BADPARSE 



I 
I 
I 
• 
I 
3VECTL 

SVECTH 



i 
I 
I 

DOQ 



/pe I for inventory" 
EXECUTE SINSLE-CHAR COMMANDS 
COMMAND VECTOR TABLES 



ENTRY: 
DOM 

CANT80 

EXnOVE 

REENTRY 

) 

( Get ne 
! 

RLOOP 



.BYTE <DOn, <DOM, < DOM , <DOM, <DOM 
.BYTE <DOM, <DOa, <DOX, <DQA 

.BYTE >DQM, >DOM, >DOM, >DOn, >DOM 
.BYTE >DOM, >DOQ, >DOX, >DOA 

HANDLE_^a^ i?yi'''' 

POSITION 13,12 

PRINT T19 I "T 

POSITION 34,12 
STX CURSEN I 
JSR BEEP 
JSR BETKEY 
CMP t'Y 
BEQ DODUIT 
LDX •12 
JSR ERASE 
JMP BADPARSE 

JMP TITLE 

HANDLE MOVEMENT 

Vector <e-3) in X 



ype Y to quit game:' 



enable cursor 



LDA CURVECT, X 
BPL EXMOVE 

PRINT TIB I 
JMP BADPARSE 

CLD 

STA NEWPLACE 
JSR SAVELOC I 
LDA NEWPLACE 
STA PLACE I 

JSR BPOINT I 

w buffer data 

LDY •S 

LDA (VPNT) ,Y 

STA CURVECT, Y 

LDA (OPNT).Y 

STA CUROBJS.Y 

DEY 

BPL RLOOP 



I Refresh screen 

I 

SHOWPLACE 

LDX »1 
JSR ERASE 
POSITION 
LDX PLACE 
LDA RDLS,X 
LDY RDHS.X 
JSR EPRlftT 



"You can't go that way." 

I for safety 

I save destination 
I save status 

I get destination, 
make it current, and 

point to the new buffers 



t clear location windoM 
13, 1 
I get loc <» 
) fetch lab and 
I msb of text addr and 
I print It 



JSR SHOWVIS ) display visible items 
JSR SHOWV/ECTS I display new vectors 



pi ay V 
t Splay 

JSR SHOWINV I show Inventory 
JMP POKAY ( congratulations! 



1 
1 


POINT TO 


NEW BUFFERS 


1 ENTRY: 


Buffer • 


a-23) in A 


BPOINT 








ASL A 


1 • 2 




STA NCODE 


1 aava 1 t 




ASL A 


1 • 4 




CLC 






ADC NCODE 


j •2 + #4 




STA NCODE 


1 save it 




CLC 






ADC • <VECTORS 



I 
I 
I 

DOX 



STA VPNT 

LDA » >VECTQRS 

ADC «0 

STA VPNT+1 

LDA NCODE 

ADC « <0BJECT8 

STA QPNT 

LDA » >OBJECTS 

ADC tt0 

STA OPNTfl 

RTS 

HANDLE "X- (SAVE QAME> 



JSR SAVELOC I save current atatus 
JSR NEUSCREEN 

POSITION 3,11 

PRINT T82 i "Save game to Diak or Caaaette?" 
LDA *«22 
STA SDMCTL 
JSR BEEP 





JSR 


OETKEY 




CMP 


»'D 




BEQ 


DSAVE 




CMP 


»'C 




BEQ 


CSAVE 


BADMRITE 






JSR 


CL03E1 




JSR 


BOOP 




JMP 


SAVEPOLL 


( Save 


to dlak 


D8AVE 








JSR 


DPQINT 




JMP 


SSAVE 


1 Save 


to cassette 


CSAVE 








JSR 


TPOINT 


S8AVE 








LDA 


• 3 




STA 


ICCOM, X 




LDA 


»8 




STA 


ICAUXl.X 




LDA 


»B 




STA 


ICAUX2, X 




JSR 


CIOV 




BMI 


BADWRITE 


1 Writs 


out game data 


WRITE 








LDX 


• «10 




LDA 


* <OAnEDATA 




STA 


ICBADR, X 




LDA 


• >QAMEDATA 




STA 


ICBADR-H.X 




LDA 


»»4B 




STA 


ICBLEN.X 




LDA 


»»ai 




STA 


ICBLEN-l-i, X 




LDA 


• 11 




STA 


ICCOM, X 




JSR 


CIOV 




BMI 


BADWRITE 




JSR 


CLOSE 1 


1 
t 

■ 


JMP 


PLAYSCREEN 


HANDLE "A- (ASAIN) 



LDA VLAST 

STA VCODE 

LDA ULAST 

STA UCODE 

JMP LEQALN 



reatore old verb 

and noun 

and do It again! 



SAVE LOC STATUS 



LDA PLACE 
JSR BPOINT 
LDY •a 

LDA CURVECT, Y 

STA (VPNT),Y 

LDA CUROBJS.Y 

STA (OPNTl.V 

DEY 

BPL SLOOP 

RTS 

VERB EXECUTORS 



ENTRY; Translated noun code in A 
and in NCODEi 
untranslated code In UCODE 



SHOWALL 



1 IB It movsablc? 



! already havB It? 



Is It h« 



boltad unit? 
"BoltM are tlgPit 



free unit? 
room 07 
got wranch? 



let you" 



LDA UCODE 

CHP »22 

BC3 DT0 

JHP IMP0S3 

LDA NCODE 

J3R 0WNIT7 

BNE DTI 

JMP ALREADY 

LDA NCODE 

JSR INR00M7 

BEQ DT2 

JMP NQTHERE 



LDfl NCODE 

CMP •2a I 

BNE DT3 

PRINT T41 i 

JMP BOODPARSE 

CMP •42 I 

BNE DT3B 

LDA PLACE i 

BNE DT3B 

LDA »27 i 

JSR 0WNIT7 

BEQ DT3A 

PRINT TSa ! 

JMP QOODPARSE 

LDA •? i 

JSR INRQ0M7 

BNE DT3B 

PRINT Ta3 ! 

JMP BOODPARSE 

JSR INVSPACE7 

BEO DT4 

JMP ARM3FULL 



LDX ROOMPOS ; 

LDY INVPOS ! 

LDA CUROBJS.X , 

STA HOLDINBS.V I 

LDA •»FF 

STA CUROBJS.X 

JSR 3H0WVIS 1 

JSR 3H0WINV i 

JMP POKAY ! 



JSR OWNIT? ! 

BEQ DDa 

JMP DONTHAVE 

LDA PLACE 

CMP •I? : i« this room 17? 

BEQ DRaP17 i special handling 

JSR RQOMBPflCE? I enough room -for It? 
BEQ DROPIT 
JMP ROQMFULL 

LDX ROOMPOS 

LDY INVPOS 

LDA HOLDINBS.Y 

STA CUROBJS.X 

LDA •»FF 

STA HOLDINBS.Y 

BNE SHOWALL 



"Bol ts won ' t 
power cable 
"Connected to cable" 
5 arm« full? 



get Ob 

and In 

S pick 

t add 


ject pD«i t Ian 
V pQ»ttion 

it up 

to inventory 


1 laav 


B a 


bl ank si o 


show room 

and inventory 

done ! 



you have It? 



Handle room 17 



JSR ROOMINIB? ; Space in room IB? 
BNE DDl ; no - drop it in 17 
LDY INVPOS ! get Inv poaltlon 
LDX ROOMPOS I and poa In room 18 
LDA HOLDINGS, Y i pick up item 
STA OBJECTS. X I and nut In IB 
LDA »*FF ; clear inventory 
STA HOLDINBS.Y | slot 

PRINT TAB 1 "It falls down the 
LDA NCODE 

CMP ^42 I dropped the unit? 
BEO DRDPUNIT i apecial handling 

JSR 3H0WVIS 
JSR SHOWINV 
JMP BOODPARSE 



I Handle 

DROPUNIT 



UNIT in 17 



LDA UNIT 
BNE D17B 
LDA »^B 



( inl t = 

S update traitor 



LDX »3 I status in 

STA UNIT I unit flag. 

STA NTRANS.X t translation matrix 

LDX •las I and object 

STA OBJECTS, X I matrix 

JSR ROOMINIB? ; find room 

LDX ROOMPOS 1 for pistol 

LDA »21 I and 

STA OBJECTS, X I drop It In 

BNE D17B 



la 



i Find empty slot 
ROOMINIB? 



IB 





LDX 


• 109 1 


skip I'st abject 


RNIB 










LDA 


OBJECTS. X 






BMl 


RNISA i 


found a blank! 




INX 








CPX 


• 113 1 


scan to end 




BCC 


RNIB I 


of room 




TXA 


1 


return NZ status 




RTS 






RN18A 










3TX 


ROOMPOS I 


save room pos 
set zero statu* 




LDA 


• 1 




RTS 






1 

1 


REMOVE 




DQREMOVE 










CMP 


• 22 I 


moveable? 




BC3 


DRM 






JMP 


IMP03S 




DRM 










CMP 


• 28 1 


mask? 




BEQ 


BODROP 






CMP 


• 32 1 


suit? 




BEQ 


BODROP 






CMP 


• 42 1 


unit? 




BEQ 


QOBRAB 






JMP 


BESPEC 




QOBRAB 










JMP 


DOTAKE 




BODROP 










JMP 


DODROP 




! 


LOOK/EXAM 




DDLOOK 










JSR 


INROOM? I 


is It in room? 




BEO 


LOOKOK ; 


if not. 




LDA 


NCODE 






JSR 


OWNIT? ; 


do you have it? 




BEQ 


LOOKOK 






JMP 


NOTHERE I 


guess not 


LOOKOK 










LDA 


NCODE 






CMP 


• 9 i 


captai n? 




BNE 


LK0 




i Search 


captain 




EXAMCAP 










LDA 


CAPTAIN 






BEQ 


EC0 






JMP 


SEEMSORO 





JSR ROOMSPACE? 

BEQ ECl 

JMP ROOMFULL 

PRINT T35 f "Found something!' 
LDA ^24 
STA CAPTAIN 
LDX ROOMPOS 
STA CUROBJS.X 
JSR SHOWVIB 
JMP BOODPARSE 



1 

LKa 




CMP 
BNE 


• IS ; 

LKl 


gauge? 


1 Re 


ad 


depth 


gauge 




READQAUBE 

J3R ZFR0 
LDA DEPTH 
STA FRa 
JSR VPRINT 

PRINT T53 1 
JMP BOODPARSE 


"Fathoms 


LKl 
1 




CMP 
BNE 


• 17 1 
LK2 


di spl ay? 



I Read navigation displays 

I 

READ ISP 

LDA PLACE 

CMP •!! » missile room? 

BEQ SHOWMD 

LDA SLAT 



SHOWMD 
DISHOW 



LDX 8L0N 
BNE DISHOW 

LDA MLAT 
LDX MLON 

STA LAT8H0W 

STX L0N3H0W 
PRINT T33 I "X 
POSITION 17,9 

JSR ZFRB 

LDA LATSHOW 

STA FRB 

JSR VPRINT 
PRINT T54 I "Y 
POSITION 17.10 

JSR ZFRa 

LDA LONSHOW 

STA FR0 

JSR VPRINT 

BNE LKX 



1 

LK2 








CMP 


• 32 1 




BNE 


LK3 


1 

1 Examine suit 


EXAM3UIT 








LDA 


SUIT 




BEQ 


ES0 




JMP 


SEEMSORD 


ES0 








JSR 


ROOMSPACE? 




BEQ 


ESI 




JMP 


ROOMFULL I 


E81 








PRINT T35 i 




LDA 


• 33 1 




STA 


SUIT 




LDX 


ROOMPOS 




STA 


CUROBJS, X 




JSR 


SHOWVIB 


1 
LK3 


JMP 


BOODPARSE 








CMP 


• 21 1 




BNE 


LK4 


1 

) Exaoine pistol 


EXAMPtST 







"Not enough room here. 
'Found something!" 



I pistol? 



I 

LK4 



LDA BULLET 

BNE PX0 I Inlt - i 

PRINT T32 I "No bullets" 
BNE LKX 

PRINT T31 I "Only 1 bullet" 
BNE LKX 



A8L A ! * 2 

TAX 1 use as an index 

LDA LKLK.X i fetch lab 

INX ; and 

LDY LKLK.X J msb of text addr 

J3R EPRINT J print text 

JMP BOODPARSE J and exit 

EXAM TEXT LOOKUP TABLE 



.WORD 
.WORD 
.WORD 

■ WORD 
.WORD 
.WORD 

■ WORD 
.WORD 
.WORD 
.WORD 
.WORD 

READ 



T36. 
T39. 
T42. 
T34, 
T37. 
T41, 
T48. 
T34. 
T34, 
T37. 
T39. 



T64,T34, 
T34.T64, 
T34.T34, 
T34,T39, 
T34.T34, 
T34,T34, 
T34,T49, 
T34.T4a 
T34,T34, 
T34.T34, 
T34.T47 



T38 

T39 
T34 
T34 
T4i 
T48 
T34 
T48 
T34 
T49 



READOK 
I 



LDX •? 

CMP READS. X 

BEQ READOK 

DEX 

BPL RDLOOP 

JMP IMP083 



JMP DOLODK 

; READable nouns 

! 

READS 



.BYTE 2,3i,B,l5, 17 
.BYTE 2S.24.i6,Sa.31 




Tired of high prices, poor service and hidden charges 
you get from other mail order companies . . . 

Try RISING SUN SOFTWARE! 



ENTERTAINMENT 

ARTWORX 

Strip Poker (D) $25,00 

S,P, Data Disks 20.00 

ATARI (ROM only) 

Centipede $32.00 

Defender 32.00 

Dig Dug 32.00 

Donkey Kong 35.00 

Eastern Front 35.00 

Galaxian 32.00 

Joust 35.00 

Missle Command 27.00 

Ms. Pac-Man 35.00 

Pac-Man 32.00 

Pengo 32.00 

Qix 32,00 

Robotron 32.00 

Space Invaders 27.00 

Star Raiders 32.00 

BIG FIVE 

l^iner 2049er (R) ...,$35.00 

BRODERBUNO 

A.E. (D) $25.00 

Arcade Machine (D) . , . 42,00 

Choplifter (D) 25,00 

Choplifter (R) 32,00 

Oper. Whirlwind (D) . . . 25.00 

Sea Fox (D) 21.00 

Sea Fox (R) 28.00 

Sky Blazer (D) 28.00 

BUDGECO 

Raster Blaster (D)..., $21,00 

DATAMOST 

Airstrike (D/C) $28,00 

Bilestoad (D) 28.00 

Mating Zone (D) 25.00 

DATAMOST 

Micropainter (D) $25.00 

Pooyan (D/C) 21.00 

Zaxxon (D/C) 28.00 

DON'T ASK 

Poker Sam (D/C) .... $20.00 
S.A.M. (D) 42,00 

EDU-WARE 

Prisoner 2 (D) $28.00 

Rendezvous (D) 28.00 



ELECTRONIC ARTS 

Archon (D) $28.00 

Hard Hat Mack (D).... 25.00 

M.U.L.E. (D) 28.00 

Murder on the 

Zunderneuf (D) 28.00 

Pinball Construction 

Set (D) 28.00 

Worms? (D) 25.00 

EPYX 

Jumpman (D) $28,00 

Jumpman Jr. (D) 28.00 

INFOCOM (disk only) 

Deadline $35.00 

Enchanter 35,00 

Planet Fall 35,00 

Starcross 28.00 

Suspended 35.00 

The Witness 35.00 

Zork I 28.00 

Zork II 28.00 

Zork III 28.00 

INTELLIGENT STATEMENTS 

Pro. Blackjack (D) ... $49,00 

LIGHTNING SOFTWARE 

Master Type (D) $28.00 

MUSE 

Castle Wolfenstein ... $21.00 

ODESTA 

Chess (D) $49.00 

Checkers (D) 35.00 

Odin (D) 35.00 

PARKER BROTHERS 

Astrochase (R) $35.00 

Chess (R) 42.00 

Frogger (R) 34.00 

Popeye (R) 35.00 

0-Bert (R) 35.00 

Risk (R) 42,00 

Super Cobra (R) 35,00 

Tutankam (R) 35,00 



ROKLAN 

Deluxe Invaders (R) ,.$28.00 

Gorf (D) 28.00 

Gorf (R) 32.00 

Wizard of Wor (R) 32,00 

Wizard of Wor (D) 28.00 

SIERRA ON-LINE 

Crossfire (R) $25,00 

Crossfire (D/C) 21,00 

Frogger (D/C) 25,00 

Mission Asteroid (D) .. 20.00 
Sammy Lightfoot (R) .. 27,00 

Ultima II (D) 42.00 

Ulysses (D) 28.00 

Wiz & Princess (D) .... 25.00 



HARDWARE 




DEALS 




MODEMS 




Apple Cat II . 


$299,00 


Micromodem 


1 255,00 


fvlicromodem w/term- i 


inal prog. . . 


. 295,00 


212 Apple Cat 


. 580,00 


MONITORS 




Amdek 




Color 1 


$299.00 


Color II RGB . 


. 599.00 


Color III RGB 


. 399.00 


RGB Card ... 


. 149.00 


USI 




Pil 9" Green 


$119.00 


Pi2 12" Green 


. 149.00 


Pi3 12" Ambe 


. 159.00 


Pi4 9" Amber 


. 129.00 


Color 1400 . . 


. 299.00 


PRINTERS 




C. Itch 




GX-lOO 


$229.00 


Prowriter 


. 399.00 


Okidata 




MicrolineSO. 


. 349.00 


Microline 82A 


.449.00 


Microline 92 . 


. 549.00 



STRATEGIC SIMULATIONS 

Battle for 

Normandie (D/C) ..$28.00 
Battle of 

Shiloh (D/C) 28.00 

Combat Leader (D).... 28.00 
Cosmic Balance (D/C) 28.00 
Cosmic Balance II 

(D/C) 28.00 

Cylron Masters (D) . . . . 28.00 
Galactic Gladiator (D) . 28.00 
Knights of the 

Desert (D/CO 28.00 

Shattered Alliance (D). 28.00 
Tigers in the Snow 

(D/C) 28.00 

SYNAPSE 

Blue Max (D/C) $25.00 

Dimension X (D/C).... 25.00 
Ft. Apocalypse (0/C) . . 25.00 
Necromancer (D/C) . . . 25.00 
Pharoah's Curse (D/C) 25.00 
Shadow World (D/C) . . 25.00 

Shamus (D/C) 25.00 

Shamus (R) 32,00 

Shamus II (D/C) 25.00 

Surviuor (D/C) 25.00 

Zepplin (D/C) 25.00 

THORN EMI 

Hockey (R) $28.00 

Jumbo Jet Pilot (R).... 35.00 

River Rescue (R) 28.00 

Soccer (R) 35.00 

Submarine Commander 
(R) 35.00 



RISING SUN SOFTWARE 

4200 PARK BLVD. 

OAKLAND, CALIFORNIA 94602 

(415) 482-3391 

Ordoring Information: We'll accept any form of payment— cash, personal check, money order, VISA/ 
MasterCard, or CO.D. Send cash at your own risk. Add $2.00 for UPS shipping; $3.00 for Blue Label Air. 
California residents add applicable sales tax. ALL orders shipped same day received. If we are out of stock 
on a particular item we will include a special bonus with yourorderwhen shipped. 



CALL TOLL FREE 24 HOURS (ORDERS ONLY) 

(800) 227-1617, ext. 114 (Outside California) 
(800) 772-3545, ext. 114 (Inside California) 





UTILITIES & 
LANGUAGES 

ADVENTURE 
INTERNATIONAL 

Diskey (D) $35.00 

ATARI 

Assembler Editor (R) . $45.00 

Atari Basic (R) 42.00 

Macro Assembler (R) . . 68.00 
Microsoft Basic II (R).. 68.00 
PILOT (R) 50.00 

DATASOFT 

BASIC Compiler (D) ..$63 00 
Lisp Interpreter (D) ... 70,00 
Edit 6502 (R) 125,00 

OPTIMIZED SYSTEMS 

Basic A+ (D) $56,00 

Bug 65 (D) 25,00 

Mac/65 (D) 56,00 

EDUCATION 

ATARI 

Conversational Languages 

French (C) $42.00 

German (C) 42.00 

Italian (C) 42.00 

Spanish (C) 42.00 

Educator Kit 117.00 

Inv. to 

Programming 1 18.00 

Inv. to 

Programming 2 23.00 

Inv. to 

Programming 3 23.00 

Juggles House (D) .... 23.00 
Juggles House (C) .... 18.00 
Juggles Rainbow (D) . . 23,00 
Juggles Rainbow (C) .. 23,00 
My First Alphabet (D) . 27.00 

Programmer Kit 53.00 

Tough Typing (cass) . . 18.00 

EDU-WARE 

Compu-Read (D) $21.00 

Compu-Read (C) 15.00 

SPINNAKER 

Face Maker (D) $28 00 

Hey Diddle Diddle (D) . 21.00 

Kindercomp (D) 21 00 

Most Amazing Thing 

(D) 28.00 

Rhymes*. Riddles (D), 21.00 
Snooper Troops 1 (D) . 32,00 
Snooper Troops 2 (D) . 32,00 



CIRCLE #129 ON READER SERVICE CARD. 



JSR 0WNIT7 

SNE DPH 

JMP WHYBDTH 

LDft NCDDE 

JSR INR0DM7 

BEQ DPH0 

JMP NOTHERE 

LDfl NCDDE 

CMP tlB 

8NE DPMI 



; graen button? 



I Handle green button push 

' LDX #3 

LDA GREEN 
BED SCANDN 
LDA *0 
STA QREEN 
LDA •2 



I blank scanner 



3TA NTRANS.X 

STA CURDBJS 

JSR SHDNVIB 

JNP 800DPARSE 





LDA 


OBJECTSfl 


1 check cable 




CMP 


»7 






BEQ 


□NBREEN 






JMP 


NOTHAP I 


"Nothing happens 


DNQREEN 


STX 


BREEN 






LDA 


»36 1 


active scanner 


1 


BNE 


SCANNER 




DPHl 


CMP 


• 11 1 


red button? 




BNE 


DPH2 




1 Handle 


red 


button push 


f 


LDX 


RED 






BEQ 


REDDN 






LDA 


*0 






STA 


RED 






PRINT T39 1 


■Sub levels of+" 




BNE 


REDX 




REDON 










INX 


1 


- 1 




STX 


RED 






PRINT T6B 1 


"Sub dives!" 


REDX 








} 


JMP 


eODDPARSE 




DPH2 


CMP 


• 12 1 


gold button? 




BNE 


DPH3 




1 Handle 


gold button 




1 


LDA 


MLAT 






CLD 








CLC 








ADC 


• 8 






STA 


MLAT 






JMP 


SHOMMD 




DPH3 










CUP 


• 13 1 


silver button? 




BNE 


DPH4 




1 Handle 


silver button 




I 


LDA 


MLON 






SEC 








CLD 








SBC 


•a 






STA 


MLON 






JMP 


SHOWMD 




DPH4 










CMP 


• 14 ; 


Hhlte button? 




BNE 


SORRY 





i Handle white button 
PUSHWHITE 



LDA MLAT i 


missile - 


CMP SLAT ( 


sub? 


BNE SORRY 




LDA MLON ) 


missile o 


CMP SLON I 


sub? 


BNE SORRY 




LDA SWITCH 1 


missile a 


BEO SORRY 




JSR NEWSCREEN 




LDA •14 




3Tft C0LQR2 




STA C0LDR4 




LDA *e 




STA CDLORl 





SOLVED 
SORRY 



DPe 

DPI 
HDPEN 



POSITION 12,11 

PRINT TBI I "Conoratulatlons' 
LDA ••22 ' 

STA SDMCTL 



JMP SOLVED 
JMP NOTHAP 
OPEN 



DO INSERT 



I "Nothing happens. 



CMP •* 
BCC OPB 

JMP inposs 

JSR INROOM? I 

BEQ OPl 

JMP NOTHERE I 

LDA NCODE I 
BNE 0P2 

LDA •34 

STA HATCH I 

STA CUROBJS ! 

LDA ^4 I 

STA CURVECT+3 

JSR SHOHVIS 

JSR SHDWVeCTS 

JMP POKAY 



can't be DPENed 
If NCODE > 6 



Is It here? 
nope 



mark hatch as opened 
change In current objects 
Open path to 
i room 4 





CMP •! 1 


door? 




BNE aP3 






PRINT T64 ( 


"Lock is very secure 




BNE OPX 




ap3 








CMP ^3 1 


grate? 




BNE 0P4 






PRINT T38 ! 


"Screwed In place" 




BNE OPX 




aP4 








CMP sa I 


airlock? 




BNE 0P3 






PRINT T23 I 


"Can't do that yet" 




BNE OPX 




0P3 








CMP •34 I 


open hatch? 




BEQ ALOPEN 






CMP ^33 1 


open door? 




BEQ ALOPEN 






CMP •ST i 


open grate? 




BEQ ALOPEN 






CMP •39 I 


open airlock? 




BNE 0P6 




ALOPEN 








PRINT T6S t 


"Already open ! " 


OPX 


JMP QODDPARSE 




0P4 

1 
1 


JMP IMPOSS 
SHOOT 




DOSHOOT 








LDA •21 S 


do you have 




JSR OWNIT? 1 


the pistol? 




BEO SHTB 






JMP EASIER 





LDA NCODE 

JSR INROOM? 

BEQ SHTl 

LDA NCODE 

JSR OWNIT? 

BEQ SHTl 

JMP NOTHERE 

LDA BULLET 

BNE SHT3 

PRINT T32 i "No bullets 

JMP aOODPARSE 



PRINT T45 
LDA »e 

STA BULLET 

LDA NCODE 

CMP •I 

BNE SHOOTX 

PRINT T71 

LDA SSS 

STA CUROBJS 

LDX •! 

STA NTRANS.X 
INX ! 



"BANBl 



Locked door? 



( "Lock destroyed'" 
t change door status In 
I object matrix 
I and 
I In the 
transl ati on 
STA NTRANS.X i table 
LDA i/tz i Open west wal 1 

STA CURVECT-t-S ; to room •S 
JSR SHOWVIS I show door change 
JSR SHOWVECTS t and new vector 

JMP QODDPARSE 



JSR OWNIT? 
BEQ INS0 
JMP DONTHAVE 

LDA NCODE 
CMP »2b ! 

BNE INSl 

PRINT T72 I 
JMP QODDPARSE 



card? 

"Try eKamlning things" 



tNa2 



CMP ^24 

BEQ INS2 

JMP BESPEC 

LDA PLACE 

CMP •I'J 

BNE INSX 

LDA ^39 ) 

STA CURDBJS ) 

LDX •& I 

STA NTRANS.X 

LDA •21 I 

STA CURVECT+1 



) ID? 



t room 19? 

update object 

matrl x 

and 

translator 
open south wall 
f to room 21 



I 

I 

; 

DOUNSCREM 



JSR SHOWVIS 
JSR SHOMVECTS 
JMP POKAY 



JSR INROOn? 

BEQ UNS0 

JMP NOTHERE 

LDA UCODE 

CMP ^24 

BCC UNSl 

JMP WHYBDTH 

LDA NCODE 

CMP •2B 

BNE UNS2 

JMP DOTAKE 

CMP *Z 

BEQ UNS3 

JMP IMPOSS 



nothing you can carry 
Is unscrewable 



! bolted unit? 



LDA «29 I 
JSR OWNIT? ! 
BNE UNS4 I 
LDA »37 ! 
STA CUROBJS I 
LDX »4 ; 
STA NTRANS.X I 
LDA •17 I 
STA CURVECT-H 
BNE INEXIT 

LDA ^22 1 
JSR 0WNIT7 
BNE UNSX 

PRINT T73 ) 
JMP 800DPARSE 

JMP EASIER 



do 

the 

pa^ 
Ob j 
and 
tr 
opei 
I 



you have 
knife? 



ch 
ect 



anslator tables 
south wall to 
oon 17 



screwdriver? 



"Blade's too tiny" 



1 


HOLD 




DOHOLD 


LDA UCODE 






CMP •SS 


breath? 




BEO DHLDei 






JMP BESPEC 




DHLDB 








LDA BREATH 


already 




BNE DHLDl 


hoi dl no 




LDA ^9 


It? 




STA BREATH 


If not. 




STA BHOLD 


to 8 ev 




JMP POKAY 




DHLDl 

1 

I 


JMP ALREADY 
UNLOCK 




DOUNLOCK 








LDA ^33 


key? 




JSR OWNIT? 






BEO UNLB 






JMP EASIER 




UNL« 


LDA NCDDE 
JSR INROOM? 
BED UNLl 
JMP NOTHERE 





set timer 



LDA NCODE 
CMP •I J 
BNE UNL2 

PRINT T73 I 
JMP eOODPARSE 



locked door? 
"Key doesn't fit" 



DOL0 
DOLl 



CMP *& 
BEO UNU3 

JMP inposs 

LDfl t^ig I unlock* 

STft CUROBJS 

LDX »7 

STA NTRflNS.X 

STA SWITCH 

JMP INEXIT 

CUT 



JSR INROOM? 

BEO DCTB 

JUP NQTHERE 

LDA NCQDE 

Cnp •? ! 

BEQ DCTl 

JMP IMP0S3 

LDA •25 i 

JSR 0WNIT7 

8NE DCT2 

LDfi 8REEN 

BEO CUTIT 

JSR NEWSCREEN 

POSITION 9,; 

PRINT T76 ! 

JMP KILLS 



locked switch? 



cutters? 



"A jolt of htgh voltage" 



severed 



LDA tAl 

STA CUROBJS+i 

LDX *a 

STA NTRANS.X 

LDA #2 t blank scanner 

STA 08JECTS1-42 

LDX »3 

STA NTRANS.X 

JMP INEXIT 

JMP EASIER 

POUR 



JSR OWNIT? 

BEQ DPR 

JMP DQNTHAVE 

LDA NCODE 

CMP #3e 

BEQ D03HAM 

JMP IMP033 



t shampoo? 



LDY INVPD9 ; remove 
LDA »»FF 1 shampoo -from 
STA HQLDINBS.Y ) Inventory 
PRINT T44 i ■■Shampoo all used 

is bolted unit 

nearby? 

nope 

else change to 

free unit 



aatch 



LDA •20 

JSR INROQM? 

BNE PQURX 

LDX ROQMPOS 

LDA #42 

STA CUROBJS, 

LOX ^22 

STA NTRANS.X (translation 

INX I table 

STA NTRANS.X 

JSR SHOWVIS 
JSR SHOWINV 
JMP QOODPARSE 

LUBRICATE 



JSR OWNIT? 
BNE DDL 
JMP WHYBOTH 

LDA *ze 

JSR OWNIT? 
BEQ DOLl 

JMP EASIER 

LDA NCODE 

JSR INROOM? 

BEQ DOSHAM 

JMP NOTHERE 



{ got the shampoo? 



1 
I 


WEAR 




DOWEAR 








CMP •SB 


t mask? 




BEQ WEAROK 






CMP •32 


i suit? 




BEO WEAROK 






JMP IMPOSS 




WEAROK 


JMP DOTAKE 




IMPOSS 







PRINT T17 ; "That's ifflposfilble.^ 

BNE QOODPARSE 



PRINT T23 i "You can't do that yet. 
BNE BOODPARSE 



PRINT T26 ; "Be more spect+lc." 
BNE SOODPARSE 



PRINT T24 ; ■■You're carrying too much'" 
BNE BADPARSE 



PRINT T25 i "Not enough room here." 
BNE BADPARSE 



PRINT T22 I "It isn't here." 
BNE BADPARSE 



PRINT T21 i "You already have it." 
BNE BADPARSE 



DONTHAVE 



PRINT T27 ; "You don't have it. 
BNE BADPARSE 



PRINT T32 i "Doesn't help." 
BNE QOODPARSE 



PRINT T33 ! "Why bother?" 
BNE QOODPARSE 



PRINT T34 I "Seems ordinary." 
BNE QOODPARSE 



NOTHAP 


PRINT T56 i 
BNE QOODPARSE 


EASIER 


PRINT TSa 1 


QOODPARSE 

JSR BEEP 

JMP NEXTEVENT 


BADPARSE 


JSR BOOP 
JMP PARSER 


! 


SUBROUTINES 


i 
1 


DLI ROUTINE 


DLI 





"Nothing happens. 



save A, 



DCOLS 
CURSES 
CURSOR 
! 



PHA 

TXA 

PHA i X 

TYA ) and 

PHA i Y registers 

LDX DLICOL I -fetch color index 

LDA DCOLS. X I fetch new color 

LDY CURSES, X I and cursor shape 

STA W3YNC ! wait for scan 

STA C0LPF2 J change color 

STY QRAFP0 ; and player shape 

INC DLICOL i update index 

PL A 

TAY i restore V, 

PLA I X 

TAX ) and 

PLA ; A registers 

RTI 1 back to mainline 



.BYTE »7e,»6B,»7B,»6e,»7a,»BB,»60 

.BYTE *a0,*0e,*a0, «0ei, *aa 
.BYTE sea.saB 

PRINT MACRO SUBROUTINE 



I ENTRY: Addr of EOL-ter m 1 nat ed string 
i in A/Y registers <L3B/MSB). 



LDX •a I locB ite (e: ) 

STA ICBADR f 1 sb of string addr 
STY ICBADR+1 I msb of string addr 
LDA »sa9 I PUT LINE command 
STA ICCOM 
LDA ••7F 

STA ICBLEN ! 1 sb max string length 
STX ICBLENi-l i msb <B) 
JMP CIOV 



1 


PO 


3ITI0N MACRO ROUTINE 




1 entry: 


X-ROs in X 


Y-pos in Y. 




PQ3IT13 


LDX 


• 13 






POSIT 


STX 
STY 
RT3 


COLCR3 
RQWCRS 






1 

1 


AUDIO PROMPTS 




^EEP 












LDA 


• 23 


1 high tone 






BNE 


BTDNE 






BOOP 












LDA 


• laa 


1 1 ow tone 




btqne 


STA 


AUDFl 








LDA 


• «AA 


; dlst/vol • 


10 




STA 


AUDCl 








LDA 


•a 








STA 


RTCLOK 






SOUND 


LDA 


RTCLOK 








CMP 


• S 


i 3 jiffies 






BNE 


SOUND 








LDX 


•a 








STX 


AUDCl 


1 silence! 






DEX 










STX 


CH 


; clear last 


key 


1 
1 

1 


RT8 








ERASE A STATUS LINE 





1 ENTRY: Target line (a-18) in X. 
ERASE 



LDA LADRSL.X 
STA CLPOINT 
LDA LADRSH.X 
STA CLPOINT+l 
LDY •24 I 
LDA •a 

STA (CLPOINT) , 

DEY 

BPL CLLOOP 

RTS 

INIT 3CREEN 



I I sb of line addr 
i msb of addr 
clear 23 characters 



NEWSCREEN 

LDA •«4a 

STA NMIEN 

STA RAMTOP 

i Close IGCB Va (E: ) 
I 

LDX <ta 

LDA •*ac 

STA ICCOM 

JSR CIOV 



! set system to 16K 



loCB •a (e: ) 
CLOSE command 



Re-open E: with new 



I si am ! 
RAM size 



! E: again 

; zero this byte 

I OPEN command 



LDX •a 

3TX ICAUX2 

LDA »3 

STA ICCOM 

LDA • <EADR i point to "E 

STA ICBADR 

LDA • >EADR 

STA ICBADR-H 



LDA (sac 
STA ICAUXl 
JSR CIOV 

LDA »e 

STA DMACTL 

STA SDMCTL 

3TA QRAFPe 

STA QRAFPl 

STA QRAFP2 

STA QRAFP3 

LDX as 

STA PCOLRa.X 

DEX 

BPL COLOFF 

LDA ^14 

STA COLORl 

LDA •»74 

STA COLDRB 

LDX •! 

STX CRBINH 

STX LMARQN 
UDA •»70 
STA POKMSK 
STA IROEN 
RTS 



; alloM read/Mrite 
I do the OPEN 



) shut off ANTIC 



blank out borders 
all col ors bl ack 



i except text 



t disable system cursor 
I " 2 

I fix margin 



) disable BREAK 
; and return 



M^RE UTILITY 




TOP-DOS. . .the best DOS 
for your Atari computer. 



TOP-DOS is a powerful, user-friendly 
Disk Operating System (dos) that gives 
you more functions and features than 
any other DOS written for Atari com- 
puters. Yet TOP-DOS is compatible with 
Atari software. 

Here are a few of the features and 
commands you can expect to find in 

TOP-DOS. 

POWERFUL 

Turns large jobs into small ones. 

You'll find aU the familiar features of 
Atari DOS 2.0 in TOP-DOS but with added 
functions and six new commands. 

Turn your major disk operations into 
small tasks with the ability to create a 
file of commands that can be executed 
in a single line. Or restore deleted files 
with one command. 

FLEXIBLE 

Tailor top-dos to your needs. 

TOP-DOS is flexible to meet the needs of 
virtually any user 

For example, the file directory can be 
listed in multi-column format to help 
you find your files. The amount of your 



WJjat independent reviewers 
say of TOP-DOS: 

"top-DOS gives the user many ad- 
vanced features found only in 
systems runtiing on. much larger 
machines. . . . This DOS is fast, easy 
to use, and extremely poiverful, but 
most of all, a bargain. . . a best buy 
in the software marketplace. 
Larry Dziegielewski, antic 

"The UNDELETE command is superb 
— one of the best things to come 
along in a long time. 
BillHowey, a.n.a.l.o.g. 

"The first thing that really impressed 
me was the full use of the screen, giv- 
ing me access to a large amount of 
work history." 
Peter Ellison, ROM 



FRIENDLY 

TOP-DOS interacts with you. 

Use computer prompts when you need 
help. As you gain experience switch to 
one-line commands for more speed. 

You'd expect to pay more for all 
these features. However, top-dos is 
only $49.95. 

And there's no risk, top-dos is 
guaranteed to please you or return it 
within 30 days for a fiill refund. 

SAVE $10 

If you order top-dos before June 1 , 
1984 you will save $10 off the regular 
price. Order today and get more from 
your disk drive. Send a check or money 
order to eclipse, 1058-A Marigold 
Court, Sunnyvale, CA 94086. Or call 
(408) 246-8325. 



involvement in file manipulations can 
be changed with the many options 
available. System parameters can be 
tailored to your preference with the set 
command. 



ECLI»E 




TOP-DOS handles double-density and double-sided Percom-connpalible disl< drives, and includes all the features of Its predecessor, DOS-(vtOD. atari Is a registered trademark of 
Atari, Inc. TOP-DOS and DOS-MOD are trademarks of ECLIPSE, Prices are subject to change without notice. Shipping charges are prepaid. California residents add 6.5% sales tax 
($39.95 -f 2.60 = $42.55: after June 1 , 1 984: $49.95 -I- 3.25 = $53.20). 

CIRCLE #130 ON READER SERVICE CARD. 



I 
I 

BAR 



BLANK BAR 
T9 
WHAT" BAR 



PRINT 
RTS 



PRINT Tia 
RTS 



KEYBOARD INPUT HANDLER 



I These routines are b«sed In part on 

t Steve HoMard's "Alternative Keyboard Handler" 

I (ANALOG Computing #13, pp. 96-1153). 

I FETCH A KEYPRESS 



LDA CH 
CMP »»FF 
BEQ OETKEY 

I 

1 Analyze keycode 



key pressed? 

not yet - keep scanning 



TAY I 

LDX eSFF 

STX CH ( 

AND vsce I 

BEQ LE8AL? I 
I 
; Handle a bad keypress 



save key for later 

reset key 

bit 6 or 7 set? 

nope 



I 



JSR BOOP 
JMP QETKEY 



J razz user and 
I try again 



( Look for illegal keys 

I 

LEBAL7 

TYA I restore keycode 

LDX #13 



KLOQP 



CMP ILLEGAL, 

BEQ BADKEY 

DEX 

BPL KLOOP 



razz If Illegal key 



Set ATASCII equivalent 

LDA ATASCI,Y 

Screen out numbers, pass EQL and BS 

space bar? 
tnat's okay 
RETURN? 
■fine by me 
backspace? 
love ^em 



CMP 


•SPACE 1 


BED 


CLKl I 


CMP 


• EOL ; 


BEQ 


CLKl I 


CMP 


• »7E I 


BEQ 


CLKl 1 


CMP 


• 'a 


BCC BADKEY 


CLD 




SEC 




SBC 


• •20 1 



I Click the speaker 

I 

CLKl 

LDY •«7F 
STY CLICK 

CLK2 

LDY CLICK 
STY CQNSOL 
LDX *B 

DELAY 

DEX 

BPL DELAY 
DEC CLICK 
BPL CLK2 



RTS 
ILLEBAL KEYS 



convert to upper case 



tick ! 
click f req 



I 126 tlees 

I ATASCII code in A 



.BYTE »1C 
.BYTE »2C 
■BYTE »27 
.BYTE »3C 
.BYTE »3i 
.BYTE »37 
.BYTE »aF 
.BYTE »2«l 
.BYTE »02 
.BYTE ^22 
.BYTE »26 
.BYTE •06 
.BYTE »07 
.BYTE »eZ 



escape 
tab 
atari 
caps 

> 



I / 



ATASCII CONVERSION TABLE 



I We use our oMn table because the 

I location of the ROM-based table varies 

» depending on which computer you have. 

I 



ATA8CI 



.BYTE •6C,»6A,»3B,»BA,»SB,»6B,»2B,»2A 
.BYTE ♦6F,«S0|^7 0,»75,«'?B,»69,»2D,»3D 
.BYTE •76.»8B,»63,^eC, SeD , •62, •78, •rA 
.BYTE •34,^sa •33,»36.^1B,»33,^32,»31 
.BYTE •2C,«2e,»2E, •6E, •80, ^60, •2F, •SI 
. BYTE »72 •sa •65, ^79 , •7F , ^74 , ^77 ,•71 
.BYTE •39, •ae ^30, •37,^7E, •38,^3C,^3E 
.BYTE »66|^68>64>8B,^82,^67,^73,^61 

INTERNAL CONVERSION TABLE 



.BYTE •20, •40, •00, (dS 
Y-OFFSET TABLES 



These tMO tables contain the 
Starting address of each status line 
(absolute screen line address ■*■ 13). 
LADRSL holds the LSBs, LADRSH the MSBs 



I 
I 
I 

8ETLINE 

I 

I Clear 

I 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



<SCREEN»S3, <3CREEN + 33, <3CREEN*93, <SCREEN-H33 
<SCREEN+173, <SCREEN+2l3, <SCREEN+233, <SCREEN+293 
<SCREEN+333, <SCREEN+373, < 3CREEN+4 13 , <SCREEN+433 
<8CREEN+493, <aCREEN*333, <SCREEN*573, <SCREENt613 
<8CREEN<-633, <SCREEN + 693, <3CREEN+733 



>8CREEN*33. 

>8CREEN-H73, 

>SCREEN+333, 

>SCREEN+493, 

>SCREEN+653, 



>3CREEN + 33, >SCREEN-f93 
>SCREEN->-213, 
>SCREEN-f373, 
>SCREEN+333, 
>3CREEN+693, 



i,,^tt..^,-. >3CREEN+133 
>SCREEN<-233, >SCREEN + 293 
>8CREEN<-413, >SCREEN + 433 
>3CREENf373, >SCREEN+613 
>SCREEN-f733 



FETCH INPUT LINE 



line input buffer 

CLD 

LDX •24 

LDA tSPACE 
LINL 

BTA INLINE,* 

DEX 

BPL CLINL 

Set first character of line 



POSITION 
LDX ••FF 
STX CURSEN 
STX CH 
INX 

STX LEN9TH 
JSR SETKEY 
CMP *SPACE 
BEQ BADONE 
CMP ••7E 
BEQ BADONE 
CMP VEOL 
BNE PUTl 



turn on PMQ cursor 
clear key 

zero line length 
fetch a keycode 
flret char not be 
a space 
a backspace 

or an EOL 



I Handle bad first character 

I 

BADONE 



I Print 

I 

PUTl 



JSR BOOP 
JMP SETONE 



JSR SETCIO 
JSR CIOV 
INC LENBTH 



J razz user and 
I try again 



I Set 
REST 



rest of input line 



JSR SETKEY I 

CMP »EOL I 

BEQ eOTEOL i 

CMP #»7e I 

BNE PUTNEXT I 

Handle a backspace 



DEC LENGTH 

BMI BADONE 

JSR SETCIO 

JSR CIOV 

LDA LENGTH 

BEQ SETONE 

BNE REST 



?rab another keycode 
f it's an EOL, 
line entry complete 
backspace? 
no - send to screen 



If 1st Cher of line 

signal error 

e; 

let CIO do backspace 

if length-0, 

handle as 1st char 

else continue 



I Print 

I 

PUTNEXT 



latest character 



JSR SETCIO 

JSR CIOV I print character 

INC LENBTH i neKt position 

LDA LENBTH 

CMP »24 I end of line? 

BCC REST I not yet - get another 



t Too many chars In line! 

I 

QETLAST 



JSR 


BOOP 


a warning razz 


.7RR 


QETKEY 




CMP 


• EOL 


must have an EOL 


BFO 


SOTEOL 




CMP 


• •7E 


or a backspace 


BEQ 


BACKS 




BNE 


BETLAST 


insist ; 



; EOL racieved 



JSR SETCIO 
STX CURSEN 
JSR CIOV 



I Specify E: 

) Shut off cursor 

{ and send EOL 



I Convert screen bytes to ATASCII 
I and move to INLINE 

LDY #24 



t grab screen byte 
I move to upper line 



and 



LDA SCREEN1-493, 

STA 8CREEN*453, 

ROL A 

ROL A 

ROL A 

ROL A 

AND #3 ! traniform byte, 

TAX ; uee as an Index 

LDA SCREEN+453,Y I re»tore original val 

AND teiF I clear bits 3-7 

ORA INTATA,X I merge with code table 

STA INLINE, Y ; send to buffer 

LDA IKS 

STA 8CREEN+493,Y 1 clear response line 

DEY 

BPL TOBUFF 

RTS 

IMMEDIATE VBI ROUTINE 



Positions and blinks cursor, 
resets DLI color IndeK 



IMMVBI 

I 

I Reset DLI color index 

I 

LDA •« 

STA DLICOL 
I 
) Okay to update cursor? 

LDA CURSEN I If enable flag - 0, 
BEQ VEXIT I don't redraw cursor 



Calculate cursor X-positlon: 
XNEW » ( XOLD • 4 ) + 48 



CLD 

LDA COLORS 

ASL A 

ASL A 

CLC 

ADC #48 

STA HPOSP0 

Don't blink cursor 
Is being pressed. 

LDA SRTIMR 

BEQ BLINK? 

LDA ••F0 

STA CURSOR 

STA CSHAPE 

LDA •60 

STA BLINK 



LDA CSHAPE 
DEC BUNK 
BNE VEXIT 

Blink the cursor 

LDY ese 

STY BLINK 

EOR ••FB 

STA CSHAPE 
X IT 

STA CURSOR 

JMP SYSVBV 



{ times 4 



) plu 
; use 



if 



-pos 



48 

s h 

key 
no press 



I force cursor on 
; for at least 
I 1 aecond 



next jiffy 

don't blink until 



I reset timer 

I flip the cursor ahape 

) and save it for later 

( plot the cursor 

I sayonara 



DISPLAY EVENT COUNTER 



The computer adventure you've been waiting for, . . 




An exploration of Greek mythology translated into modern electronics 

by Stuart Smith 







ii I II 



;^jjjuiijuiii||i)| 




~^ ike creative mind ofstuart Smith, author of AliBaba and the Forty Thieves, 
brings to life the worid of mythic Greece in fantastic color and sound! Carefully 
researched and skillfully programmed. Return of Heracles is computer entertainment 
at its best. Twelve difficult and dangerous tasiis will be assigned to you by Zeus, and 
your heroes must accomplish them all. One or more players take on the role of an 
ancient Greek hero or heroine. There are 19 heroes to choose from, or choose them all! 
May the gods favor you! 



Wmm 



Apple is a trademaiV of 

Apple Computer, Inc. 

Atari is a trademark of Atari, Inc, 

Commodore 64 is a trademark of 

Commodore Business Macliines, Inc, 



^ 



QUTiLrry softw7ir€ 

21601 Manila Street . Chatsworth.CA 91311 
(818) 709-1721 

CIRCLE #131 ON READER SERVICE CARD. 



For Apple II, Atari, & 

Commodore 64 home computers. 

On diskette. Requires 48K. $32.95 



SpartaDOS and ARCHIVER 11™ 




From the authors of the CHIP! 

SpartaDOS is our all new command driven DOS fully compatible with all disk drives made for 
the Atari Home Computers™ Supports all Atari compatible densities - both single and double 
sided, 5V4 and 8 inch. 

UltraSpeed™ I/O allows read/write 2 to 4 times faster than standard! * Comprehensive utilities 
include: a sector copier, RS-232 handler, and DOS file translators. 

ARCHIVER 11 allows UltraSpeed backup of all diskettes and compacting of multiple programs 
on each disk. Includes an exceptional editor, a speed check, and is fully automatic. 
Available now for Atari 810 and 1050 drives! Coming soon for most other brands. 



Suggested Retail Price $129.95 (plus shipping and installation) 



See SpartaDOS and ARCHIVER II now at leading computer stores or order direct from: 

Spartan Software 

Div. oflCD, Inc. 

828 Green Meadow Ave. 

Rockford, IL 61107 

815-229-2999 (1:00-9:00 p.m. CST) 

* Speed depends on drive hardware. A chip replacement is required for most drives. 

SpartaDOS. ARCHIVER II, and UltraSpeed are trademarks of ICD, Inc. Atari is a registered trademark of Atari. Inc. 



CIRCLE #132 ON READER SERVICE CARD. 



SHOWEV 

I Inltl«lli« EBUFF 

LDfl »•* 

ST« EBUFF 

aTfl EBUFF+1 

STfl EBUFF+2 

LDB •EOL 

STfl EBUFF+4 

I Convert evant t to ATASCII 
I 



ECON 



LDfl EVENT 

STfl FRB 

LDA EVENT-fl 

STfl FRB-H 

JSR IFP 

JSR FASC 
CUD 



( convert to floating point 
( then to ATASCII 



i Deternlne length o+ number 

LDY fl«FF I inlt loop Index 
FINDE 

INY 

LDfl (INBUFF),Y I check cheracterm 

BPL FINDE 

I Change tt to Inverse video and 
; move to EBUFF 

LDX «3 I move 3 chars maximum 
TQEB 

LDA (INBUFFI.Y 

□RA *«ae ! set msb 

3TA EBUFF, X ! put In EBUFF 

DEX 

DEY 

BPL TOEB 

I Display contents of EBUFF 





POSITION 33, fS 




PRINT EBUFF 




RTS 


1 

1 


SET CIO TO PUT CHAR MODE 


SETCIO 






LDX •*0B 




STX ICCOM 




LDX »0 




STX ICBLEN 




STX ICBLEN*! 




RTS 


I 


SYNTAX ERROR 


SYNERR 






PRINT T13 ) "Syntax:" 




RTS 


f 


CLEAR WINDOWS 


1 What 


Happens window 


CLUH 






LDX »■? 




JSR ERASE 




INX 




JSR ERASE 




LDY »9 




JMP P0SIT13 


1 

1 Inventory window 


CLINV 






LDX tlS 


CLINVl 






JSR ERASE 




INX 




CPX »11 




BCC CLINVl 




RTS 


f 
1 


DISPLAY ROOM VECTORS 


SHOWVECTS 




LDX #2 




JSR ERASE 




LDY 40 




LDX me 




STX ANY? 


8VL 






LDA CURVECT.X 




BMI VSKIP 




LDA VNAHE3, X 




STA 8CREENi93,Y 




INC ANY? 




INY 




INY 


VBKIP 






INX 




CPX tt6 




BCC SVL 





LDA 


ANY? 




BNE 


VECTEX 




POSITION 13,2 




PRINT T41 I "None" 


VECTEX 


RTS 




i Vector 


initials 


VNAMES 








.SBYTE "NSEWUD" 


1 
1 


DISPLAY ROOM OBJECTS 


SHOWVIS 








LDX 


• 3 


CLVIS 








JSR 


ERASE 




INX 






CPX 


»"? 




BCC 


CLVIS 




POSITION 13.3 




LDX 


• 




STX 


ANY? 


SHVl 








STX 


PDEX 




LDA 


CUROBJS, X 




BMI 


SHV2 




INC 


ANY? 




TAX 






LDA 


OBDLS.X 




LDY 


OBDHS'X 




J3R 


EPRINT 


SHV2 








LDX 


PDEX 




INX 






CPX 


*6 




BCC 


SHVl 




LDfl 


ANY? 




BNE 


SHEXIT 




PRINT T2B > "Nothing 


3HEXIT 


RTS 




1 


DISPLflY INVENTORY 


3H0WINV 








JSR 


CLINV 




POSITION 13.13 




LDX 


• 




STX 


ANY? 


SHIl 








STX 


PDEX 




LDfl 


HOLDINSS, X 




BMI 


SHI2 




INC 


ANY? 




TAX 






LDfl 


OSDLS, X 




LDY 


DBDHS.X 




JSR 


EPRINT 


3HI2 








LDX 


PDEX 




INX 






CPX 


• 6 




BCC 


SHIl 




LOA 


ANY? 




BNE 


SIEXIT 




PRINT T28 ! "Nothlna 


SIEXIT 


RTS 




1 

I 


"OKAY" PROMPT 


POKAY 








JSR 


CLWH 




PRINT T2» 1 "Okay" 




JMP 


BOODPARSE 


i 


SEARCH INVENTORY 


INVSPflCE? 






LDA 


»«FF 


0UNIT7 








LDX 


• 3 


OLOQP 








CMP 


HOLDINSS, X 




BEQ 


FOUND 




DEX 






BPL 


OLOOP 




TXA 






RTS 




FOUND 








STX 


INVPOS 




LDA 


*0 




RTS 




1 

1 


SEARCH ROOM 


ROOBSPACE? 






LDA 


»»FF 


INROOn? 








LDX 


»3 


IRLOQP 








CMP 


CUROBJS, X 




BEQ 


F0UND2 




DEX 






BPL 


IRLOOP 



FDUND2 

1 

1 


TXA 
RTS 

STX ROOMPOS 
LDA *|3 
RTS 

PRINT INTEaER 


IN FRB 


VPRINT 


JSR IFP 
JSR FASC 
CLD 
LDY tSFF 





INY 

LDfl (INBUFF),Y 

BPL VLOOP 

AND *»7F 

STA (INBUFF),Y 

INY 

LDfl »EOL 

STfl (INBUFFI.Y 

LDfl INBUFF 

LDY INBUFF+l 

JMP EPRINT 

DEATH 



POSITION 10, S 

PRINT T43 t "kills you Instantly! 

POSITION 24,7 

PRINT T64 ! "YOU ARE DEAD" 
JMP STARTOP 

CLOSE IOCS »1 



CLOSE 1 








LDX 


**10 




LDA 


• 12 




STA 


ICCOM, X 




JMP 


CIOV 


1 


POINT TO FILENAMES 


DPOINT 








LDA 


« <FILE 




LDY 


» >FILE 




JMP 


POINT 


TPOINT 








LDA 


« <CADR 




LDY 


# >CADR 


POINT 








LDX 


• *10 




STA 


ICBADR.X 




TYA 






STfl 


ICBADR-H.X 




RTS 




1 


INIT DATABASE 



I 

INITDATA 

I 

1 Set status flags 

I 

LDX #19 

LDA te 

ID0 

STA EVENT, X 

DEX 

BPL IDB 
I 

1 Clear vector /object 
I 

LDX »e 

LDA tSFF 



IDl 



I Cll 

I 



STA OBJECTS, X 

STA VECTORS, X 

INX 

CPX »132 

BCC IDl 

working arrays 

LDX #3 



RTA 


HOLDINSS, X 


STA 


CUROBJS, X 


STfl 


CURVECT, X 


DEX 




BPL 


ID2 


LDX 


#1 


STX 


BULLET I 


STX 


PLACE ) 


LDA 


• 32 


STA 


MLAT 


LDA 


• l&B 


STA 


MLON 



1 bullet 

start In escape tuba 



Inlt tranlatlon table 
LDX •ST 



WE SPECIALIZE IN ATARI COMPUTERS 
SO WE KNOW WHAT WORKS BEST! 




COMPUTER 
PALACE 



CALL US AT (503) 683-5361 FOR INFORMATION ON THE LATEST AND BEST FOR ATARI 




• 2-disk set! 

• A lot of game 
for your money! 

$52.50 

New from 
Origin Systems. 

Here is the latest in the famous 
series of Fantasy/Role-Playing 
games. This one is the best yet! 



Flight Simulator II 




So what if you haven't gotten your pilot's 
license yet . . . You can take off with this 
super-scrolling flight simulator and fly to 
your heart's content! The disk even contains 
a WW I flying ace dog fight game so that you 
can brush up on your aerial combat! 



48K Disk 
From Sublogic 



$44.90 



DIMENSION-X 




What has unlimited power . , . Scrolling per- 
spective ... and super excitement? 
THIS DOES!!! 

32K Disk/Tape 
from Synapse Only 



$31.50 



FREE 
Catalog 

With any order, or 
send $1 (refundable 
wdh purchase) 
Send us your 
name & address for 
FREE FLYERS with 
Special Offers! 




Use Your 
Credit Cards! 

We honor VISA. 
American Express. 
& MasterCard 



"IF YOU DON'T 
HAVE OUR CATALOG.. 
YOU'RE 
MISSING OUT!" 



TRAK 



DISK DRIVE 



INDUS-GT 



DISK 
DRIVE 




T7- 



rt^.i.frratu.TCFF^Bgi 




Now You Can Run 
CP/M On Your Atari! 



$398.00 




Protect Your 
Investment 
with these 
durable and 
attractive 




+ Frt. 



DOUBLE DENSITY 
BUILT-IN PARALLEL 
PRINTER INTERFACE 
& BUFFER 



$398.00 



Plus 



• Quiet & Reliable 

• Faster I/O than Atari 1050 Drive 

• True Double Density Operation 

• Includes Free Software: 
DOS — Word Processing — 
Data-Base — Spread Sheet 

• Includes Carrying Case 

ONE YEAR WARRANTY!!! 



ATR-8000 Expander 



• 64K, Z80 computer 

• Runs any combination o( 5'/.," and 8" drives 
in single or double density 

• Built-in serial and parallel ports 

• EJuilt-in printer butter 

64K CP/M model S449.aO 

2-DDDS 5V4" add-on drives 595.00 
1-DDDS 51/1" add-on drive 379.00 



DUST COVERS 



Custom Fitted For: 

• ATARI 400,800,600XL,800XL,1200XL, 
410,810 1 1010,1050,1025 and 1027 

• EPSON MX-80 and FX-80 

• GEMINI 10 • PROWRITER 8510 

• PERCOM WRANA 

Please speedy Qllly $8.95 E 

SPECIAL'- 2 for $16.95 



BOOKS & MAGAZINES 

COMPUTE PUBLICATIONS: 

1st Bool( of Atari 12 95 

2nd Book of Atari 12.95 

1st Book of Atari Graphics 12 95 

1st Book of Robots & Computers . . 12 95 

1st Book of Atari Games 12.95 

Atari Basic Source Book 12 95 

Inside Atari DOS 19 95 

Mapping ttie Atari 14 95 

Macfiine Language for Beginners ... 14.95 

Machine Language Programming: 

6502 Assembly Language Prgm. . 18 95 
6502 Assembly Language Subroutines 17.95 

The Atari Assembler 14 95 

De Re Atari (All About Atari) 1 7 90 

Machine Language for Beginners 14 95 

Basic Programming Applications: 

Games Atari's Play 14 95 

Kids and the Atari 19.95 

Your Atari Computer 17 95 

Magazines: 

ANTIC-vol 2. no 11 2.50 

Back issues-vol2, no. 2. 3. 4. 9. 10 ea 2.50 

ANALOG-no.16 3 00 

Back Issues-no. 13,14,15 ea. 3 00 

HiRes-no.3 2 95 

Back issues-no. 1.2 ea 2.95 



SUPER SPECIALS! 

LIMITED QUANTITIES-WHILE SUPPLIES LAST! 
(PLEASE LIST YOUR SECOND-CHOICE WHEN ORDERING) 



MOUNTAIN KING 



16K cartridge 
Fronn CBS 
Reg. $39.95 



A 



/T^4 



Only $17.95 VjJ 



METEOR 
STORM 

Reg QQ QC 
S29 95 <1>3.3J 

16K Disl< from Royal Software 



K-Razy 

Shoot '^^'^- """^ 

Out S3995 $17.95 

cartridge from CBS 



Boulders 
& Bombs 

From CBS 

$17.95 



,/ 



16K CARTRIDGE 



Chicken (D,T) 
Guardian ol Gorn (D) 
Genetic Drift (D) . 
Claim Jumper (D,T) 



Regular SPECIAL Regular SPECIAL 

35.00 S19.95 Protector II (D, T) 35 00 $19.95 

35 00 9.95 David's Midnite Magic (Dl 35 00 17.95 

.30 00 14.95 Race In Space (T) 30 00 19.95 

. 35 00 19.95 Hegalegs (t) 35 00 9.95^ 



SOFTWARE 

Joust (C) 44.90 

Robotron (C) 43.50 

Blue Max (D.T) 31.50 

Gdesta Chess (D) 59 50 

Pole Position (C) 44 90 

Donkey Kong (C) 44 90 

fylonkey Wrench II (C) 54 00 

Ultima II (D) 52.50 

Dig Dug (C) 44.90 

B/Graph (D) 89 90 

The Tax Advantage (D) 62.50 

Letter Perfect (C) 89 90 

Spell Perfect (D) 69 50 

Home Accountant (D) 67.50 

Q-Bert (C) 44 90 

Valforth (D) 54 50 

HARDWARE (plus freight) 

Astra 1620 Dual Drive 529.00 

Rana 1000 Drive 349 00 

Super-5 Printer 329 00 

Atari 1027 Printer 319.00 

Gemini & Epson Printers . . CALL 

Atari Graphics Tablet 79.10 

Koala Pad Tablet 87 90 

Power Pad Tablet 87 90 

Axiom Printer Interface 99 00 



'COMPUTER 
PALACE 



OPEN Monday - Saturday, 9 to 6 

2160 W. Iltti Avenue Eugene, Oregon 97402 




USE YOUR CREDIT CARD & CALL 

Toll Free 1-800-452-8013 

(Orders Only, Please) 

For Information Call (503)683-5361 



stripping Note: UPS & Parcel Post-S2 90 UPS Air-S4 75 
Shipping on hardware & paper supplies-extra Call 
24 i 48 hour shipping avaiiable— Call |503| 683-S3G1 

\Vc spcciali/c in A TAR/ Conipalihlc Producls 

So we know what works best.'!.' 

Call for tfie latest info. . . (503)683-5361 



CIRCLE #133 ON READER SERVICE CARD. 





LDA TRftNS.X 
BPU 1D3 


1 Inlt 


vector matrix 


ID4 


UDX •3"' 

LDfl VDflTfl.X 

LDY VSET3 X 

gTfl VECTORS, Y 

DEX 

BPL ID4 



! 

1 Inl t 


object 


matrix 






LDX 


#31 




IDS 










LDfl 


ODftTA, X 






LDY 


DSET3, X 
OBJECTS 






STfl 


Y 




DEX 








BPL 


IDS 






RT3 






J Translator 


data 




TRAN3 









I VBCtC 
I 

VDATA 



I 

I Obj 
I 

ODATA 



.BYTE «, 1 , 1 , 2,3,4,3.4 

.BYTE 7,8,9,10,11,12,13,14 

.BYTE li, 16, li, 17, 18,19,20,20 

.BYTE 21,22,23,24,23,26,27,23 

.BYTE 23,29, 3B, 31 ,32,33 



.BYTE 2,0,4,4,2,6,1,13 

.BYTE 6,4,9,7,3,6,9 6 

.BYTE li,a.l9,9,2l,15 13 12 

.BYTE 13,12,19,16,14,4,13,14 

.BYTE 19, 15, 2«, 18,9, 19, 19, 1 1 

.BYTE 1, 12, 13.20,24 23,28,29 

.BYTE 3i.3i,3>,3a,39,45,30,54 

.BYTE 36.37,39,63,71.73,74,81 

.BYTE 86.90,91,92,93.94,99,102 

.BYTE 11*, lU, il6 11^, lla, l23, 126, 130 



Bct data 



.BYTE 20,7,0,22.8,9.23,1 

.BYTE 23.21 10. IS, 11. 16, 17,31 

.BYTE 17. li, lS,2>.2S,3.30,26 

.BYTE 29,18,4,3,19,14,32,4 

.BYTE 0, 1,6,7, 12, 18, 19 24 

.BYTE 30.42,43,48,49,34,60,61 

.BYTE 66,67,68,72,78,84,83 90 

.BYTE 96, 102, 108, 114, 113, 116, 120, 126 



I DICTIONARY 






1 SINSLE-CHAR COMnANOS 




scons 






.BYTE 


"N" : 


- 


North 


.BYTE 


„g.. , 


1 - 


South 


.BYTE 


" E ■' ! 


2 - 


East 


.BYTE 


" W " ! 


3 — 


West 


.BYTE 


" U " ! 


4 - 


Up 


.BYTE 


■■D" i 


3 - 


Down 


.BYTE 


■■ Q " 1 


6 - 


Quit 


. BYTE 


"X" 


; 7 


- Save 


.BYTE 


" A ■' ; 


a - 


Again 


! COMPOUND VERBS 






VERBS 








.BYTE 


"TAK" ! 


- 


take 


.BYTE 


"BET" 1 


1 - 


get 


.BYTE 


"PUL" ; 


2 - 


pul 1 


.BYTE 


"DRO" 1 


3 - 


drop 


. BYTE 


"REM" ! 


4 - 


remove 


.BYTE 


"LOO" ! 


s - 


look 


. BYTE 


"EXA- 1 


6 - 


examl ne 


.BYTE 


■■SEA" 1 


7 - 


search 


.BYTE 


"REA" I 


8 - 


read 


.BYTE 


"PUS" 1 


9 - 


push 


.BYTE 


"PRE" 1 


10 


- press 


.BYTE 


"OPE" 1 


1 1 


- open 

- close 


.BYTE 


"CLQ" 1 


12 


. BYTE 


"USE" I 


13 


- use 


.BYTE 


■■ K I L " ! 


14 


- kill 


.BYTE 


"SHG" -, 


13 


- shoot 


.BYTE 


"FIR" i 


16 


- fire 


. BYTE 


"BRE" 1 


17 


- break 


.BYTE 


"SUA" ! 


18 


- smash 


.BYTE 


" I NS ■■ I 


19 


- insert 


. BYTE 


-UN3" I 


20 


- unscrew 


. BYTE 


"HOL" i 


21 


- hold . 


. BYTE 


"UNL" ! 


22 


- unlock 


.BYTE 


"CUT" I 


23 


- cut 


. BYTE 


"POU" i 


24 


- pour 





. BYTE 


"LUB" I 25 - lubricate 




.BYTE 


■■SRE^' 1 26 - nrease 




.BYTE 


-WEA" ) 27 - Hear 




.BYTE 


"QO " 1 28 - go 


NV 


29 1 total • of verbs 


1 VERB 


VECTOR TABLE 


VVECTS 








.HORD 


DOTAKE 1 




.WORD 


DOTAKE I 1 




.WORD 


EASIER I 2 




.WORD 


DODROP s 3 




.WORD 


DOREMOVE 1 4 




.WORD 


DOLOOK i 3 




.WORD 


DOLOOK ) 6 




.WORD 


DOLOOK ! 7 




.WORD 


DOREAD ) 8 




.WORD 


DOPUSH I 9 




.WORD 


DOPUSH I 10 




.WORD 


DDQPEN J 11 




.WORD 


WHYBOTH 1 12 




.WORD 


BESPEC ( 13 



.WORD EASIER } 14 

.WORD D03H00T i IS 

.WORD DOSHOOT I 16 

.WORD WHYBOTH I 17 

.WORD WHYBOTH I 18 

.WORD DOINSERT i 19 

.WORD D0UN3CREW i 20 

.WORD DOHOLD ; 21 

.WORD DOUNLOCK I 22 

.WORD DOCUT ( 23 

.WORD DOPOUR ! 24 

.WORD DOLUBE ! 23 



.WORD 


DOLUBE 


i 26 




. WORD 


DOWEAR 


1 27 




t COMPOUND NOUNS 






NOUNS 






.BYTE 


"HAT" ; 


- 


hatch 


.BYTE 


"DOO" 1 


1 - 


door 


.BYTE 


"LOG" 1 


2 - 


lock 


. BYTE 


"SCfl" ! 


3 - 


scanner 


.BYTE 


"BRA" ( 


4 - 


grate 
traitor 


.BYTE 


"TRA" I 


3 - 


. BYTE 


"AIR" I 


6 - 


airlock 


.BYTE 


"SWI" ! 


7 - 


swl tch 


-BYTE 


"CAB" 1 


a - 


cable 


.BYTE 


"818" I 


9 - 


si gn 


.BYTE 


"CAP" ! 


10 


- captain 


.BYTE 


"BRE" 1 


1 1 


- green 


.BYTE 


-RED" 1 


12 


- red 


.BYTE 


"SOL" I 


13 


- gold 


.BYTE 


" 3 I L " 1 


14 


- si 1 ver 


.BYTE 


"WHI" ! 


IS 


- white 


-BYTE 


"BAU" 1 


16 


- gauge 

- periscope 


.BYTE 


"PER" ) 


17 


• BYTE 


"SCO- 1 


18 


- scope 


.BYTE 


" D 1 3 " I 


19 


- display 

- duct 


.BYTE 


"DUC" 1 


20 


.BYTE 


"SLO" 1 


21 


- slot 


.BYTE 


"BOL" ! 


22 


- bolt 


. BYTE 


"UNI" ! 


23 


- unit 


.BYTE 


"PIS" 1 


24 


- pistol 


.BYTE 


"SCR" 1 


23 


- screwdriver 


.BYTE 


"NOT" ( 


26 


- note 


.BYTE 


"ID " ! 


27 


- ID 


. BYTE 


"CUT" I 


28 


- cutters 


.BYTE 


"CAR" ! 


29 


- card 


.BYTE 


"WRE" ) 


30 


- wrench 


.BYTE 


"MAS" I 


31 


- mask 


. BYTE 


"8A3" i 


32 


- gas 

- Sni-fe 


.BYTE 


"KNI" i 


33 


.BYTE 


"SHA" ; 


34 


- shampoo 


.BYTE 


"MAN" s 


33 


- manual 


.BYTE 


"SUI" 1 


36 


- suit 


.BYTE 


"KEY" 1 


37 


- key 


.BYTE 


"BRE- 1 


38 


- breath 


.BYTE 


"BUT" I 


39 


- button 


.BYTE 


"INV" I 


40 


- Inventory 


NNN " 41 


i total « o-f nouns 


1 ROOM 


DESCRIPTIONS 


1 









"Sonar sphere" 
"Escape tube'^ 
"Access tunnel ■■ 
"Captain's quarters" 
"Forward passage" 
"Radio room" 
"Long corridor" 
"Sonar station" 
"Ballast control" 



RDi0 
RDll 
RD12 
RD13 
RD14 
RD13 
RD16 
RD17 
RD18 
RD19 
RD20 
RD21 



TEXT "Command station" 

TEXT "Navigation center'^ 

TEXT "Upper missile bay" 

TEXT "TOf'pBdo room^' 

TEXT "weapons locker" 

TEXT "Shower stalls" 

TEXT "crew's quarters^^ 

TEXT "Bailey" 

TEXT "Ventilation duct" 

TEXT "Fan room'^ 

TEXT "Missile control" 

TEXT "Equipment bay" 

TEXT "Lower missile bay" 

ROOM DESC. ADDRESS TABLES 



.BYTE <RD0, <RD1, <RD2, <RD3, <RD4, <RD3 

.BYTE <RD6, CRD7, <RD8, <RD9, <RD10, <RDI1 

.BYTE <RD12, <RDl3, < RD 1 4 , <RD1S, <RD16, <RD17 

.BYTE <RD18, <RD19, <RD20, <RD21 

.BYTE >RD0, >RD1, >RD2, >RD3. >RD4. >RD3 

.BYTE >RD6, >RD7, >RDa, >RD9, >RD10, >RD 1 1 

.BYTE >RD12, >RD13, >RD14, >RD13, >RD16, >RD17 

.BYTE >RD18, >RD19, >RD20, >RD21 



1 
1 


OBJECT 


DESCRIPTIONS 


t 

1 

OBD0 








TEXT 


"Closed hatch" 


OBDl 








TEXT 


"Locked door'^ 


0BD2 








TEXT 


'■Blank scanner'^ 


0BD3 








TEXT 


'■Closed grate '■ 


0BD4 








TEXT 


"Traitor with pistol" 


0BD5 








TEXT 


■'Closed airlQck^^ 


0BD6 








TEXT 


"Locked arming switch" 


0BD7 








TEXT 


■■Power cable^' 


0BD8 








TEXT 


"Sign" 


0BD9 








TEXT 


■■Dead captain" 


aBD10 








TEXT 


"Oreen button" 


OBDll 








TEXT 


"Red button" 


0BD12 








TEXT 


"Gold button" 


aBD13 








TEXT 


"Silver button^' 


aBD14 








TEXT 


"White button" 


QBDIS 








TEXT 


"Depth gauge" 


0BD16 








TEXT 


"Peri scope" 


0BD17 






TEXT 


"Digital display" 


0BD18 








TEXT 


"Duct down to -fan room" 


0BD19 








TEXT 


"Slot in airlock" 


OBD20 








TEXT 


"Bolted-down sonar unit 


0BD21 








TEXT 


"Pistol" 


0BD22 








TEXT 


"Tiny Bcrewdri ver'^ 


09023 








TEXT 


"Suicide note" 


0BD24 








TEXT 


"Security ID" 


0BD23 








TEXT 


"Cable cutters" 


0BD26 








TEXT 


"Card" 


0BD27 








TEXT 


"Wrench" 


0BD28 








TEXT 


"Qas mask^' 


QBD29 








TEXT 


"Dull knife" 


OBD30 








TEXT 


"Shampoo" 


0BD31 






TEXT 


"Tactics manual " 


QBD32 
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Attention Programmers! 

ANALOG Computing is interested in programs, articles, and software review submissions deal- 
ing with the Atari home computers. If you feel that you can write as well as you can program, then 
submit those articles and reviews that have been floating around in your head, awaiting publica- 
tion. This is your opportunity to share your knowledge with the growing family of Atari computer 
owners. ANALOG pays between $30.00-$360.00 for all articles. All submissions for publication 
must be typed, upperand lower case with doublespacing. Program listingsshould be provided in 
printed form, and on cassette or disk. By submitting articles to ANALOG Computing, authors ac- 
knowledge that such materials, upon acceptance for publication, become the exclusive property 
o\ ANALOG. If not accepted for publication, the articles and/or programs will remain the property 
of the author. If submissions are to be returned, please supply a self -addressed, stamped envelope. 
All submissions of any kind must be accompanied by the author's full address and telephone 
number. Send programs to: Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. 
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/ Ma to Commander Is ^ 
available for Atari and 
Commodore 64 computersr^ 
48K disk or cassette. — 
IBM-PC version will be '^ 

-^available shortly. ----^ 



Sifggesfed retail price for 
this outstanding real-time 
cpmfajt slmulatifflys^;^^' 




If you can't find our games 
^kt your local store you can 
^f der by Master Card, Vis^ 
^^dney Order, COD or chec 
'^dd $2.50 postage anilr''^ 
handling. MD reslden^^ ~ 
:^.c5% sales tai£ >- ^~-- 



PLAYERS HAVE: / / / 

• Tactical and Strategic Air Power / 
"7^ Tactical and Nuclear Forees / '~~ 

• Continuous Battlefield Status and New$ Service 
Updates 

• Multiple Combat Units, Including: Infantry, lUlechan- 
ized Armor and Attack Helicopters / 



MlcroProse Software '^'' ^^""^■' ^""^ ''°^^' """^^Jj^^; ^ii^'??? 



(301) 667-1151 



DEALER INQUIRIES INVITED 



\ ATARI Is the registered trademark ol Atari, Inc. 

Commodore 64 Is tlie Registered trademark of Commodore Business Machines, Inc. 

IBM-PC Is the registered trademark of International^ Business Machines, Inc. 



CIRCLE #134 ON READER SERVICE CARD. 
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BASIC 

Training 




by Tom Hudson 



For the next couple of issues, we're going to be 
looking at some graphics concepts that will be new to 
many readers. Those BASIC programmers interested 
in writing their own games should find these routines 
very helpful. 

What's a vector? 

Generally, when computer techno-types are dis- 
cussing graphics, you'll hear the word "vector" 
tossed around. Actually, as far as we're concerned, a 
vector is simply a direction. 

Whenever the Atari computer performs a DRAW- 
TO command, it calculates a vector (or direction) 
from the last point plotted (point 1) to the point 
being drawn to (point 2). The vector from point 1 to 
point 2 can be left, right, up, down or any other 
direction. Simple enough, right? 

Many games, such as Robotron, Missile Coin- 
mand and even Star Raiders use the concept of 
vectors. In Missile Command, enemy missiles are 
approaching your cities, intending to turn them into 
smoking ruins. In order to draw the missile tracks on 
the screen, the computer must calculate a vector 
from the missile's starting point to the target city. 

Many BASIC programmers would like to use vec- 
toring in their games, but don't know how. If you 
want an electrified robot to chase Blaster Bob (TM) 
around on the screen, the robot must know which 
direction Bob is in. The following programs demon- 
strate several ways to accomplish this. 



The first type of vector calculation most pro- 
grammers discover is what I call X-Y matching. This 
is the simplest and fastest vector calculation, but as 
you will see, it has some drawbacks. 

Let's say we're writing a game called Get Bob, 
starring our friend. Blaster Bob. Bob's being 
menaced by the usual electrified robot. Assuming 
we've chosen the X-Y matching vector schemes, let's 
see how the robot will act. 

Each time the robot gets ready to move, it looks to 
see what direction Bob is in. This robot is not very 
sophisticated, and only knows if Bob is above or 
below, and left or right. The robot can only move in 
eight directions (the same as an Atari joystick). If 
Bob is directly above the robot, it will move straight 
up. If he is directly to the right of the robot, it will 
move right. 




Figure 1. 
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Problems start when Bob is not at one of the eight 
directions the robot can move in. As Figure 1 
shows, if Bob is at an odd angle, the robot's path to 
him is jagged. This is the main drawback to the X-Y 
matching algorithm. 

As I said before, the X-Y matching algorithm is the 
easiest vector method to program. Figure 2 shows 
the basic code necessary to implement this type of 
vector. 

Figure 2. 

18 REH »»» SIMPLE K-Y HATCHING ««* 

20 REH 

30 GRAPHICS 6; CO LOR 1 

40 ? "EHTER gain COORDS H.V";:TRAP 40: 

INPUT FX,FV:IF FH<0 OR FXM59 OR FV<e 

OR FY>79 THEN ? "ta":GOTO 40 

50 PLOT FX FY 

60 ? "ENTER ffi] COORDS X.Y"; :TRAP 50: IN 

PUT TX.TV:IF TX<e OR TXM59 OR TY<0 OR 

TY>79 THEN ? "Q'^GOTO 50 
70 PLOT TX,TV 
80 XV=:5GNCTX-FX} 
90 VU=S6NCTY-FV) 

108 IF NOT XU AND NOT YV THEN 148 
118 FX=FX+XU 
120 FY=FY*YV 
130 PLOT FX, FY: GOTO 80 
140 ? "VECTOR COI«»LETE":END 



CHECKSUM DATA 

(See p. 30) 



10 DATA 498,253,28,496,104,443,136,595 
,601,526,821,829,368,953,6651 



Line 30 places the computer in graphics 
mode 6 and selects color 1. The program will 
graphically illustrate how the vector code 
works. 

Lines 40-70 accept the X and Y coordinates 
of the starting and ending points of the line and 
plot them on the screen. In graphics mode 6, the 
X coordinate ranges from 0-159 and the Y coor- 
dinate from 0-79. If you exceed these values, the 
console speaker will beep and you must re-enter 
the coordinates. 

Line 80 finds out if the point being drawn to 
is to the left or right of the starting point. By 
using the sign function (SGN), the X vector 
(XV) will be set to -1 (left), (no movement) or 
1 (right). 

Line 90 finds out if the point being drawn to 
is above or below the starting point. The Y 
vector (YV) will contain -1 (up), (no move- 
ment) or 1 (down). 

Line 100 is the line end test. If both XV and 
YV are zero, FX and FY have reached the same 
point as TX and TY, and the line is finished. 

Line 110 adds the X vector (XV) to the X 
coordinate of the starting point (FX). 



Line 120 adds the Y vector (YV) to the Y 
coordinate. 

Line 130 plots the new point and loops back 
to Line 80 to get the next vector. 

Line 140 informs you when the vector draw- 
ing is complete. 

Try entering different values for the starting and 
ending points, observing how the line acts with dif- 
ferent endpoints. You can see that, although this 
method may be good for some applications, you 
certainly wouldn't want to use it for drawing pic- 
tures! 

True vectors (part 1 ). 

Let's say Get Bob was a tremendous success, and 
all the rabid video-gamers out there want to see more 
of Blaster Bob. Well, you sit down to write Get Bob 
II, but want the robot to be smarter, and head 
directly toward Bob, no matter which direction he's 
in. You need a true vector routine. 

True vectors are more tricky than our simple X-Y 
matching. In order for a vector to go in the EXACT 
direction, we must get more information about the 
target point. Figure 3 shows one type of true vector 
algorithm. 

Figure 3. 

10 REH «*» TRUE VECTOR METHOD 1 «»» 

20 REH 

30 GRAPHICS 6; CO LOR 1 

40 ? "ENTER !i;M: COORDS X.Y";: TRAP 40: 

INPUT FX,FY:IF FX<0 OR FX>159 OR FV<8 

OR FY>79 THEN ? "13": GOTO 40 

50 PLOT FX,FY 

60 ? "ENTER as COORDS X.Y";: TRAP 50: IN 

PUT TX,TY:IF Trx<e OR TX>159 OR TY<0 OR 

TY>79 THEN ? "13": GOTO 58 
70 PLOT TX,TY 
80 XD=SGNCTX-FX) 
90 YD=SGNCTY-FYJ 
100 DELTAX=ABS(TX-FXJ 
110 DELTAY=ABS(TY-FY> 

120 IF DELTAX>1 OR DELTAY>1 THEN DELTA 
X=DELTAX/2:DELTAY=DELTAY/2:G0T0 120 
130 XV=DELTAX«XD 
140 YU=DELTAY«VD 

150 IF INTCFX+0.5J=INTCTXJ AND INTCFY+ 
0.5)=INTCTY] THEN 200 
160 FX=FX+XU 
170 FY=FV+VV 
180 PLOT FX,FV 
190 GOTO 150 
200 ? "VECTOR C0HPLETE":END 



CHECKSUM DATA 

(See p. 30) 

10 DATA 356,253,28,496,104,443,136,541 
,547,173,184,198,568,577,216,4820 
160 DATA 836,844,146,725,943,3494 



With this method, we find the differences in the X 
and Y coordinates of the two points, called DELTA X 
and DELTA Y. 

Once these are found, we divide both by 2 repeat- 
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edly until they are BOTH less than or equal to 1 . The 
resulting numbers are the vectors we will add to the 
starting coordinates in order to get to the ending 
point. 



Lines 30-70 perform the same function as 
those in Figure 2. 

Lines 80-90 get the general direction of the 
target point, just as in X-Y matching. 

Lines 100-110 find the DELTA X and DEL- 
TA Y values. The absolute value function makes 
the numbers positive, since distances cannot be 
negative. 

Line 120 divides both DELTAX and DEL- 
TAY by 2 until both are less than or equal to L 
This ensures that the line we draw will never 
move more than 1 pixel at a time. 

Lines 130-140 calculate the final X and Y 
vectors (XV and YV) by multiplying the limited 
DELTA values by the X and Y directions (-1, 
or 1). 

Line 150 checks to see if the line has reached 
the endpoint yet. If both X coordinates are equal 
and both Y coordinates are equal, the line is 
complete, and the program skips to Line 200. 



Lines 160-170 increment the line coordi- 
nates (FX and FY) by the proper vector 
amounts. 

Line 180 plots the next point in the line on 
the screen. 

Line 190 loops back to Line 150 for the next 
plot. 

Line 200 prints the end message and stops 
the program's execution. 

RUN this program several times with different 
endpoints and observe that the line generated is 
much better than that generated by X-Y matching. 
This is not the best line we can obtain, though. The 
next vector algorithm is the one used by the Atari 
operating system to draw lines in the graphics modes, 
and always gives good results. 

True vectors (part 2). 

When you tell your computer to draw a line from 
one part of the screen to another, you set in motion a 
fairly complex chain of events. The Atari operating 
system manual describes the algorithm on page 184. 
This is the vector algorithm used in virtually every 
computer, and is quite involved. Since a total under- 
standing of this algorithm is not essential in order to 
use it , I'll describe the maj or points of interest and let 
the more advanced programmers take it from there. 
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Trade • New • Used • Demo. "Computer Hot Line" 
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Preppie II $22 
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Apple Panic 20 
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Multiplan 1 75 

Compiler 119 

HARDWARE 
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Upper Reaches Apshai 18 

Jump Man 33 

ZorkI 33 

Zork II 33 

Zorklll 33 

Frogger 30 

Jawbreaker 24 

Ft. Apocalyse 30 

Pharoh's Curse 30 

Type Attack 30 
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Purchases can be made by check, money order, C.O.D., Carte Blanche and Diners Club. 



ATARI 

120OXL Reflects 


. Reba 
.. Ret 


te $259 


800 48k Reflects 


ate 289 


400 16K 




99 


810 Disk Drive 

410 Recorder 

830 Modem 




... 379 

... 72 
. .. 129 


850 Interface . . 




IQQ 




Atari Visicalc 




. S,-\F,Q 


SPECIAL OF THE MONTH 


ATARI SOFTWARE 

Bookkeeper Kit 


. ..$165 
52 






... 55 


Data Perfect 




... 75 






. . . 1 05 


Home Accountant 




... 48 


Assembler Editor . 




42 


Atari Speed 

Atari Speed Reading. .. 

Home File Manager 

Bookkeeper 




... 54 

... 36 

102 


Pac-Man 




... 30 


Centipede 




30 


Qix 




30 


Breakout . . . 




26 


Deluxe Space Invaders. 




... 26 


Asteroids 




30 


Juggles House (D.C.) 




... 22 


Juggles Rainbow 




... 22 



Comm 64 $219 

1 541 Disk Drive 249 

1 525 Printer 229 

1 701 Color Mont 259 

Hes Mon 29 

Paperclip w/p 115 

Calc Result 1 40 

Sysres-Utility 90 

Renaissance 30 

Vic-20 90 

Datasette 64 

1 600 Modem 85 

Word Processor 95 

1311 Joystick 8 

1312 Paddles 16 

1210 3k Expander 34 

Apple Panic 34 

Serpentine 34 

Sargon Chess 29 

Gorf 29 

UMI-VIC 20 

Renaissance $30 

Meteor Run 30 

Outworld 30 

Super Amok 30 

Video Vermin 30 

Amok 15 

Subchase 15 
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Figure 4. 



19 REM »»« TRUE VECTOR METHOD 2 **» 

20 REH 

30 GRAPHICS 6: CO LOR 1 

40 ? "ENTER SEES. COORDS X.V";:TRAP 40: 

IMPUT FX,FY:IF FK<0 OR FK>159 OR FV<0 

OR FV>79 THEN ? "[3":G0T0 40 

50 PLOT FK,FY 

60 ? "ENTER HS COORDS X.Y"; STRAP SOsIN 

PUT TK,TY:IF TX<0 OR TK>159 OR TY<0 OR 

TY>79 THEN ? "Q":GOTO 50 
70 PLOT TK,TY 
80 KD=:SGN(TX-FK) 
90 YD=S6NtTY-FY> 
100 DELTAX=ABS(TX-FX) 
110 DELTAY=AB5tTY-FYJ 
120 XACC=0 
i.30 YACC— 
140 COUNT=DELTAX:IF DELTAY>DELTAX THEN 

COUNT=DELTAY 
150 EPOINT=COUNT 

160 IF COUNT=DELTAX THEN YACC=EP0INT/2 
-.GOTO 180 
170 XACC=EP0INT/2 
180 IF COUNT=0 THEN 260 
190 XACC=XACC1^DELTAX 

200 IF XACC>=EPOINT THEN XACC=XACC-EPO 
INT:FX=FX+XD 
210 YACC=YACC+DELTAY 

220 IF YACC>=EPOINT THEN YACC=YACC-EPO 
INT:FY=FY+YD 
230 PLOT FX,FY 
240 C0UNT=C0UNT-1 
250 GOTO 180 
260 ? "VECTOR COra>LETE" :END 



CHECKSUM DATA 
(See p. 30) 



10 DATA 358,253,28,496,104,443,136,541 

,547,173,184,646,652,402,653,5616 

160 DATA 334,420,959,874,24,860,46,133 

,418,724,961,5753 



Figure 4 is a vector program using the Atari vec- 
tor algorithm. 

Lines 30-70 perform the same function as 
those in Figure 2. 

Lines 80-90 get the X and Y direction values. 
Note that this function is essential to all types of 
vector algorithms. 

Lines 100-110 find the DELTA values, the 
differences between the FROM and TO coordi- 
nates. 

Lines 120-130 reset the X and Y accumula- 
tor variables (XACC and YACC) to zero. These 
variables are used as counters to tell the compu- 
ter when to increment the X and Y coordinates. 



CASADAPTER 

"IT REALLY WORKS!" 



CASADAPTER is a cassette interface that al- 
lows you use your own cassette recorder or 
stereo with the Atari 400/800/1200®. 
CASADAPTER will handle motor control, audio 
and data channels. 

«34.95 



48K 



RAM BOARD FOR: 

THE ATARI 400® 
»1 15.00 




COMPUTER PRODUCTS 



12 Scamridge Curve 
Buffalo, New York 14221 
(716)632-3441 

Dealer Inquiries Invited 
"Product of Gemini Software 



Add '2.50 shipping. 

Send check or money order 

C.O.D. accepted 

New York State Residents 

add 7% tax 

®Atari is a trademark of 

Atari, Inc. 



*MAGIC DUMP is a screen dump utility that allows 
you to dunnp a Hi-Resolution graphics picture to a 
printer in a variety of different sizes. MAGIC DUMP 
is used in the RIGHT hand cartridge slot, so it is 
always ready to use. 

MAGIC DUMP will work with all Epson printers and 
Gemini printers, the Centronics 739 printer, and the 
Prowriter or N.E.C. printers. $gg gg 



*GTIA DRAW is a drawing program that uses all the 
features of Atari's® new GTI A chip. GTIA DRAW will 
give you three extra graphics modes, Mode 9 (16 
luminances and one color), Mode 10 (8 luminances 
and color), or Mode 11 (16 colors and one lumi- 
nance). 

GTIA DRAW will allow you to: 

• Add text to pictures 

• Blank horizontal or vertical lines 

• Shift the screen in any direction 

• 'ZOOM' in on certain areas of a picture 

• Fill portions of a screen 

• Work on two different screens simultaneously 

«49.95 



*THE DRUMESISER is a unique sound synthesizing 
tool that allows the creation of sounds such as a 
drum, piano, organ, harpsichord, or electronic syn- 
thesizers. The different types of sounds created are 
limited by the user's imagination and ambition. 
THE DRUMESISER comes with an Editor, which 
allows you to create your own sounds, a Player, 
which will allow you to play the different instru- 
ments, and the Memory Options, which make it pos- 
sible for you to playback any sounds that you have 
recorded. 

<49.95 
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Presents: 
^ M e Qi a. H i t 



M e Q -a. F o n t 

The Cpmpi ete Program Lister 
and Graphics Dumper 

By Randy Del linger and Richard Rognlie 
(XLENT's Star Programmers) 

ftUovs SHW to list ALL im your (MPHICS t screeits 

control and SMSi charatttrs (creatH vith Nicro Painter, 

to »o«r printtr in any of mNC etc.) to tht printer in afl9 of 

fonts providrt, or treat* your THREE sizes (wrter, half, 

om vith any font editor. and full paye.) 

For use »ith Pronriter, lEC or Epson »/ craftrax printers 
48K disk orkl!yi ^X^ . ^5 

EoMPUTER ^ ^< ^ 

IsSlSTED by 

„_|ATH Johnny 

(JHrOGRAM Masuda 






Originally written for Johnny's dauqhter, this is 
the BEST isath drill prograre written tor the ATARI. 
Easily played by eieraentary students. Multiple 
skill levels make it a challenqe to older children 
Use your Keyboard or joystick. 

32K di sk or tape onlM S^a.-i^.'Sns 

Mode Mixer- 1 .!k 2 

by Margie Bliss and Jerry Kwit 

Lets you combine all ATARI graphics modes to create 
custon display lists. Mode Mixer 1 generates 
ERROR-FREE BASIC code for insertion into your 
programs. Mode Mixer 2 generates the actual 
Display List. Includes FREE strategic warship game 
Excellent tutorial style documen ta't i on 

48K disk onlM S^A-gn.-^s 



Add *2.00 -for Shipping and Handling 

Add $1.50 -for C.OID. orders 

VA residents add 4X sales tax 

Send Check or Money Order to: 
XLENT So-ftware 
P.O. Box 5228 
Spr ing+' ield, VA 22150 

24-Hour Phone: <703) (^44-3881 

Dealer Inquiries Welcome 
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Line 140 sets COUNT to the larger of DEL- 
TAX and DELTAY. This tells the computer 
which axis (X or Y) has farthest to go. Count is 
decremented each time a point is plotted, and 
when it reaches zero, the line is complete. 

Line 150 sets EPOINT (endpoint) to the 
value of COUNT. EPOINT is then used as the 
limit value for XACC and YACC. 

Lines 160-170 set either XACC or YACC to 
a starting value of EPOlNT/2. If the X axis has 
farthest to go, YACC is set, otherwise, the com- 
puter initializes XACC. 

Line 180 is the start of the plot loop. If the 
COUNT variable is zero, the line has reached 
the endpoint and the draw is finished. 

Line 190 adds the DELTAX value to the X 
accumulator. 

Line 200 checks to see if the X accumulator 
value has exceeded the EPOINT limit. If it has, 
the EPOINT value is subtracted from the accu- 
mulator and the X coordinate is moved in the 
proper direction (contained in XD). 

Lines 210-220 perform the functions of 
Lines 190-200, but for the Y coordinate. 

Line 230 plots the new coordinate on the 
screen. 

Line 240 decrements the COUNT variable. 
As noted before, when this variable reaches 
zero, the draw is complete. 

Line 250 loops back to Line 180 for the next 
iteration of the draw loop. 

Line 260 is simply the end message for the 
routine. 

When this program is executed, you will see that this 
algorithm produces the best lines of the three vector 
routines presented here. It is slightly slower than the 
other methods, but that's the price you pay for the 
accuracy. 

Follow the leader. 

Up until now, poor Blaster Bob hasn't had much 
of a chance against the evil electrified robot — - he 
can't move! In order to present a more fair challenge, 
we should at least let him move around, right? 

This problem presents a slightly different chal- 
lenge to our vector routines. They must calculate a 
new vector to the target point for each movement! 
You've probably guessed that this will usually be 
slower than drawing lines to stationary targets, and 
you're right. 

Figures 5, 6 and 7 show "follower" routines 
using each of the vector methods discussed. Each 
program allows you to move the target around on the 
screen with a joystick plugged into port 1. The pro- 
gram then tries to hit the target. To speed the routines 
up, there is no coordinate limiting, so be careful not 
to run the target off the screen. Let's look at the 
advantages and disadvantages of each. 
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Figure 5. 



Figure 6. 



19 REM *** FOLLOWER (K-Y MATCHING} *** 

20 REM 

3e GRAPHICS 6: COLOR 1 

40 DIM KStl5J,VStl5J :FOR 1=1 TO 15:RE0 

D X.V:KSCIJrH:YStIJ=Y:IIEXT I 

50 DATA 0,0,0,0,0,0,0,0,1,1,1,-1,1,0,0 

,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0 

60 FX=0:FY=0 

70 TH=8G:TV=40 

80 5TIK=5TICKC8J 

90 TK=TK+K5f5TIKl 

100 TY=TY+YSC5TIKJ 

110 PLOT TX,TY 

120 XU=5GHCTX-FX1 

130 YU=SGH(TY-FY) 

140 IF NOT XU AND 

150 FX=FX*XU 

160 FY=FY+YV 

170 PLOT FX,FY 

180 GOTO 80 

190 ? "GOTCHA!": END 



CHECKSUM DATA 

(See p. 30) 

IB DATA 691,253,28,350,327,808,992,514 
, 642 , 729 , 181 , 347 , 357 , 548 , 833 , 7600 
160 DATA 841,143,518,454,1956 



NOT YU THEN 190 



10 REM *** FOLLOWER (VECTOR 1> *** 

28 REM 

30 GRAPHICS 6: COLOR 1 

40 DIM XSC15),YS(15} :FOR 1=1 TO 15:REA 

D X,Y:XSCI)=X:YSCIJ=Y:NEXT I 

50 DATA 0,0,0,0,0,0,0,0,1,1,1,-1,1,0,8 

60 FX=0:FV=0 

70 TX=80:TV=40 

80 STIK=STICK(0> 

90 TX=TX+X5CST1KJ 

100 TY=TY+YSC5TIKJ 

110 PLOT TX,TY 

120 XD=SGNCTX-FX) 

130 YD=SGNCTY-FYJ 

140 DELTAX=ABS(TX-FX) 

150 DELTAY=ABSCTY-FYJ 

160 IF DELTAX>1 OR DELTAY>1 THEN DELTA 

X=DELTAX/'2:DELTAY=DELTAY/2:G0T0 160 

170 XV=DELTAX»XD 

180 YU=DELTAY»YD 

190 IF INTtFXJ=INT(TXJ AND INTCFY}=INT 

CTY) THEN 240 

200 FX=FX+XU 

210 FY=FY+YW 

220 PLOT FX,FY 

230 GOTO 80 

240 ? "GOTCHA!": END 



(Continued next page.) 



Why spend $200 

for a spreadsheet when you can buy 

HOME-CALC for under $40 

Available for all Atari computers 



*Car Expenses 
*Budgets 
*FJnances 
*lncome Tax 

* investments 
*Sports Records 
*Payment Schedules 
*Stocl< Portfolios 

* Expense Accounts 

Cassette - S29.95 
Diskette - S39.95 

Home-Calc is a powerful, inexpensive spreadsheet for 
home and business calculations. You can enter 
numbers, labels, or fomulas In each cell. Home-Calc 
allows you to add, subtract, multiply, divide, use the 
exponential guide, sum, and recalculate. The diskette 
version also features a replicate command. Maximum 
spreadsheet size is 510 cells for the 48k diskette ver- 
sion. (Disk version requires 24k memory; cassette 
requires 16k memory.) 




See your dealer or order direct 

Phone orders— (215) 825-4250 

HOME-CALC cassette— $29.95 

HOME-CALC diskette— $39.95 

Shipping and handling 

C.O.D. and credit card add SI. 50 

6% sales tax (PA, NJ residents only) 

TOTAL 



S2.0Q 



Name _ 
Address 

City 

Phone _ 



.State. 



.Zip. 



nMC#_ 
nviSA#_ 

Exp. Date . 



fresh ideas in Software . 



Atari 400/800/1200 are trademarks 
of Atari, Inc. 

Dealer, Distributor, and 
Representative Inquiries Invited 
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>'C0A1PUTER PRODUCTS INC. 
1100 E. HECTOR ST. 
WHITEfVIARSH, PA. 19428 



CHECKSUM DATA 
(See p. 30) 



18 DATA 428,253,28,359.327,898,992,514 

,642,729,181,329,339,185,196,6293 

168 DATA 214,589,589,779,828,828,138,5 

85,441,4886 



Figure 7. 

19 REM »»» F0LL0i4ER (VECTOR 2J «» 

29 REN 

39 GRAPHICS 6: COLOR 1 

49 DIM K5C15J,V5C15) :FOR 1=1 TO 15:REA 

D X,V:H5CI3=K:Y5{IJ=V:IIEKT I 

59 DATA 9,9,9,0,9,8,9,9,1,1,1,-1,1,9,9 

,9,-1,1,-1,-1,-1,9,9,9,9,1,9,-1,8,8 

69 FK=0:FV=9 

79 TK=89 :TV=49 

89 STIK=STICKC9J 

99 TK=TX+KS(STIK) 

199 TV=TV+VS(STIKJ 

119 PLOT TX,TV 

129 KD=5GH(TH-FX) 

138 YD=5GMCTY-FY) 

148 DELTAX=ABSfTX-FXJ 

158 DELTAY=ABSCTY-FY3 

169 XACC=9 

170 YACC=9 

189 COUNT=:DELTAX:IF DELTAY>DELTAX THEN 
COUNT=DELTAY 

190 EPOINT=COUNT 

299 IF COUNT=DELTAX THEN YACC=EP0IMT/2 
:GOTO 220 

210 XACC=EP0IIIT/2 

220 IF COUNT=e THEN 310 

230 XACC=XACC+DELTAX 

249 IF XACC>=EPOINT THEN XACC=XACC-EPO 
INT:FX=FX+XD 

250 YACC=VACC+DELTAV 

260 IF YACC>=EPOINT THEN YACC=YACC-EPO 

INT:FY=FY+YD 

270 PLOT FX,FY 

288 C0UNT=C0UNT-1 

290 IF STICKC0J=15 THEN 220 

300 GOTO 80 

310 ? "GOTCHA!" :END 



CHECKSUM DATA 

(See p. 30) 



18 DATA 423,253,28,350,327,808,992,514 

,642,729,181,329,339,185,196,6296 

168 DATA 658,664,414,665,307,404,934,8 

58,36,872,58,145,430,478,498,7421 

318 DATA 434,434 



Figure 5 is the X-Y matching version of the fol- 
lower. It is the fastest of the three followers, but like 
its simple vector version, produces very poor lines. 
There's not much that can be done to improve this 
algorithm. If it's speed you want, and you don't mind 
the erratic behavior, this routine is fine. 

Figure 6 uses the first vector method to follow the 
target. In my opinion, this routine produces the best 
results as far as the follower's path is concerned. 
When you run the program, you will see that the 
following point always moves smoothly, with nice 
curves. This algorithm looks "smartest" in pro- 
grams. 



The major drawback with this routine is speed. 
The farther away the target is, the slower the calcula- 
tions. As the follower gets closer to the target, how- 
ever, the routine speeds up considerably. 

Figure 7 uses the system vector routines for the 
follower. This is a very interesting situation. Due to 
the iterative nature of this vector algorithm, the fol- 
lower becomes confused when the target moves. 
When the target stops, the follower can "lock in" on 
a straight course toward the target. Line 290 checks 
the stick to see if the target is in motion. If it is, the 
program must recalculate the vector (GOTO 80). 

Using vectors. 

You can use these vector and follower routines in 
your own games. The primary vector calculation 
routines will work in any graphics mode. All you 
have to do is give them the "FROM" and "TO" 
coordinates. 

The routines shown here leave the follower's path 
on the screen so that you can see how each algorithm 
works. They can be easily modified to only show a 
single pixel (or redefined character). 

By using your imagination, you can come up with 
some challenging (and fun) games in BASIC with 
these routines. D 



2: ± ^ .SI F^l^le^^^r^|-t^ 

"fme: 
ohimese: i=-OFt-rLJMi 

C <=ll_ E: INI O i=i Ft 

Are people born in the YEAR OF THE RAT compatible 
with those born in the YEAR OF THE 



On February 2, 1984, the ancient Chinese Zodiac renewed 
itself. The YEAR OF THE RAT, began the new cycle. To 
coumeiBorate this renewal (it happens every 12 yrs), 
ZIZA has released THE CHINESE FORTUNE CALENDAR. It 
reveals the animal which ruled at YOUR BIRTHI Enter 
your Birth date and get your answer PLUS your fortune! 
The fortune reveals your strengths and weaknesses. It 
also suggests those who will itake the best partners'. 
Press a key and you get a copy on your printer, A 
great idea for parties! Covers 100 years, 1900-2000. 
Atari only. 48K Diskette, printer optional. $19.95. 

y ZIZA PRESENTS, INC. I« 

^l" 2257 Independence TC 

Ann Arbor, MI 48104 

rib 313-973-0299 J^ 

Dealer Inquiries Invited 
Check or money order. Add $1.50 for shipping. 
MI residents add 4X tax. Atari Ttl Atari Inc. 
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ROBOTRON: 2084 

ATARI, Inc. 

P.O. Box 61657 

San Jose, California 94086 

16K Cartridge $49.95 



by Kyle Peacock 



The year is 2084. Man's technological achieve- 
ments in the field of robotics have produced a new 
form of mechanized menace: the Robotron. This 
new series is so advanced, man is inferior to his 
own creation. Guided by their infallible logic, the 
Robotrons have concluded that man is inefficient 
and must be destroyed. 




Robotron. 



If the above scenario sounds like the story line to 
a 2001 sequel, guess again. Robotron: 2084 has 
arrived on the Atari home computer. 

The Robotrons have all but eliminated mankind. 
Other than yourself, only one human family re- 
mains. Due to a genetic engineering error (a fancy 
name for "birth defect"), you possess superhuman 
powers. You have the capability to skrag the Robo- 
trons and save the last human family. 

Robotron is an extremely fast paced shoot-em-up. 
Your little poindexter character runs around the 
screen, dodging enemies and vaporizing anything 
that moves. The Robotrons have an instinct for their 
survival and your demise. Contact with any of the 
various species causes you to lose a life. Fortunately, 
you receive five lives initially and an extra life every 
20,000 points. 

One good aspect of Robotron is the different 
types of attackers. Ground Roving Unit Network 
Terminator (GRUNT) Robotrons are the most 
abundant. They are designed to eliminate you on 
contact. Hulk Robotrons march around in pursuit of 



the last human family. They replace Mommy, Daddy 
and Mikey with a set of skull and crossbones. Giant 
Brain Robotrons also prey on the family members. 
They can reprogram people into deadly Progs. A 
Prog is a sort of synthetic Robotron, just as lethal as 
its mechanical counterpart. Other menaces include 
Enforcer Embryos which release Enforcers, Cubic 
Quarks which continually bounce off walls, and Tor- 
ture Tanks which move around on rotating threads. 

One feature of Robotron that brings it closer to 
its arcade counterpart is the option for two joysticks. 
In this mode, one joystick controls the direction of 
travel, the other direction of fire. Atari designed the 
game packaging to accomodate this feature. If you 
don't have two joysticks, though, you can still play 
Robotron, so don't let this deter you. 

Overall, Robotron: 2084 isn't a bad game. I was 
hoping Atari would design a litde better playability 
into the home computer version. I rarely played this 
game in the arcades. It was always in a class with 
Defender and Stargate as either having too many 
buttons, or too much "stuff" going on at once. Ata- 
ri's Robotron rivals the arcade version in too many 
respects. It's just as tough and unplayable as the real 
thing, n 




ELectro-NOTCH 



Electronic Write Protect 
or Protect Override 



SLO-SEC 

Slow Speed Control for 
Writing Bad Sectors 



SAVE !! on COMBO'S 

ELectro-NOTCH S SLO-SEC 



Zlp-COPI 

Automatic Sector Copy 
Program 



For RflNA 1000: SLO-SEC and 
Protect Override are combined 
on a single switch 

Discount of $ 2.00 for Zip-COPI 
and any other product together 



Atari is a tradenark of Alari, Inc 
Rana is a tradenark of Ham SriXtiK, Inc 
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SAIGON: THE FINAL DAYS 

by Jyym Pearson 

with Robyn Pearson and Norman Sailer 

ADVENTURE INTERNATIONAL 

P.O. Box 3435 

Longwood, Florida 32750 

16K Cassette $24.95 

by Ray Berube 

Hurray! Another 16K adventure for my memory- 
poor Atari 600XL. Another chance to spend a week- 
end challenging my grey cells while my wife repeat- 
edly informs me that "Dinner is ready! — Getting 
cold!" and finally "Get your own supper!" 

The setting of Saigon: The Final Days is the 
jungle and city environs of Saigon just prior to the 
American evacuation. The player is a prisoner of war 
who, with a little luck, will make his way out of the 
jungle, through the city and into the American com- 
pound in time to be evacuated. In other words, 
Saigon is a Green Beret primer. 

My early encounters with a water snake, machine 
gun nest and boobytraps were fatal. I found myself 
back at the start — each time a little more frustrated. 
1 was tired of being bitten by that snake! Then I 
discovered the first several flaws in the game. No 
matter how hard I looked, listened, touched or 
smelled for the snake, 1 could never find it, and that 
makes for poor playability. If there's a danger pres- 
ent the player should be warned or at least be allowed 
to search carefully for danger. Even the command 
LOOK AT WATER SNAKE produced no results, 
aside from another snakebite. 

Now let's do some more nitpicking. The nicely- 
packaged game documentation claims the machine- 
language parser which controls commands is very 
versatile and has a huge vocabulary. Wrong! Saigon 
plays best when you keep commands to two words, 
like GET BINOCULARS or MOVE CORPSE. 
Even then, there are serious limitations. At one point 
in the game, a command to MOVE RADIO will 
detonate a boobytrap. But MOVE CLOUD has the 
same effect. In fact, attempting to move anything 
detonates the boobytrap. Even MOVE ATARI sends 
you to your doom! 

Another obvious flaw lies in the inaccuracies 
which abound. For example, there are Russian gre- 
nades which can't be armed without pulling the pin 
with a pair of pliers (pliers are hardly standard issue 
for any battle-ready soldier; and most Russian gre- 
nades are armed by twisting the base, not pulling a 
pin). And there are spelling errors! In the case of the 
word helicopter (spelled "helecopter" in Saigon), 
the player must also misspell it or the command isn't 
understood! 




Saigon is also not very imaginative. Most of the 
obstacles are physical ones: crossing jungle streams, 
opening locked doors, crawling through tunnels, get- 
ting tanks to start. There's very little to stimulate 
your thinking cap. The inclusion of a hint sheet 
coded by number is the game's greatest intellectual 
challenge. 

The key to any good adventure is the ability to 
search and uncover clues and useful objects. An 
adventure without this feature is simply a journey 
into frustration. Saigon doesn't give you enough 
information to make intelligent decisions. In fact, 
some of the most important clues and tools are held 
deliberately out of reach until you die. In short, 
Saigon suffers from the killer syndrome. What exact- 
ly does the killer syndrome mean? It's best explained 
by example. 

At one point in the game, the player survives a 
helicopter crash but finds himself paralyzed. Within 
the crashed helicopter are crucial clues and tools you 
need to advance in the adventure. But the game 
doesn't allow you to find these things until you are 
killed at the next obstacle! After your resurrection 
and return to the site of the crash, you're suddenly 
able to discover the clues you need. No command of 
any kind will let you access this vital information the 
first time through. Backtracking past this sequence 
doesn't work either. Saigon requires your death to 
reveal information vital to your survival. That's the 
killer syndrome, and it's an exercise in frustration! 

Well, after all this, is Saigon worth your money? If 
you're one of the many users whose Atari has only 
16K (as all 600XL owners are now, but hopefully 
not for long), there are very few text adventures 
available. Even with its flaws, I recommend you buy 
the game. Just have a good supply of patience on 
hand. However, if your Atari belongs to the smart set 
of 48K and up, then I can't recommend Saigon. 
Invest a little more money and buy an Infocom 
adventure, or even one of the original Scott Adams 
titles. You'll enjoy your investment rather than rail- 
ing at your monitor. D 
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BOOKS for ATARI 400/600XL/800XL 
1200XL 

ATARI BASIC - Learning by Using 
An excellent bool< for the beginner. 
Many short programs and learning exer- 
cises. All important features of the 
ATARI computers are described (screen 
drawings, special sounds, keys, paddles, 
joysticks, specialized screen routines, 
graphics, sound applications, peeks, pokes, 
and special stuffl. 

Order-No. 164 S7.95 

Games for the ATARI Computer 
Tills book describes advanced program- 
ming techniques like player-missile- 
graphics and use of the hardware-registers. 
Contains many ready to run programs in' 
BASIC and one called GUNFIGHT in 
machine language. 
Order-No. 162 S7.95 

How to program your ATARI in 6502 

Machine Language 

Introduction to machine language for the 

BASIC programmer. 

Order-No. 169 $9.95 

FORTH on the ATARI - Learning by 

Using 

Introduction, prggmms^^pplications, 

learning exercises ^PPB^^ 

Order-No. 170 S7.95 

All programs from book No. 170 on disk. 

Order-No. 7319 S22.00only! 

A Look into the Future-ASTROLOGY 

on your ATARI 800. How to calculate 
your own horoscope. Including listing of 
the program. 
Order-No. 171 S9.95 

HACKERBOOK for your Atari computer 

Tips+tricks -Very important subroutines 
in 6502 machine language How to make 
bootable cassettes, disks, and EPROMs. 
Complete construction article and soft- 
ware on how to build an EPROM burner. 
Order-No. 172 S9.95 

SMALL BUSINESS SOFTWARE FOR 
ALL ATARI COMPUTERS 

SUPERMAIL (500 addresses on 1 disk) 
Completely written in FORTH. Comes on 
autoboot disk. No cartridge, no DOS, no 
FORTH language required. 
Order-No. 7312 S49.00 

SUPERINVENTORY (1000 items p.disk) 

Completely written in FORTH. Same as 

above. (Disk only) 

Order-No. 7320 S49.00 

BUSIPACK-1 (written in FORTH). Com- 
p/ete order entry, inventory, mailing and 
invoicing. (Disk only). 
Order-No. 7313 S98.00 

Microcomputer Hardware Handbook 
Order-No. 29 S 14.95 



Jemark of ATARI Inc., VIC-20 + C 



ATCASH 

Convert your ATARI 800 into a powerful 

cash register. (Disk only). 

Order-No. 7303 S49.95 

Invoicing program in BASIC 

Order-No. 7201 (C) S29.95 

Order-No. 7200 (D) S39.95 

Mailing List in BASIC 

Order-No. 7212 (C) S19.95 

Order-No. 7213 (D) S24.95 

Inventory control in BASIC 

Order-No. 7214 (C) SI 9.95 

Order-No. 7215 (D) S24.95 

SOFTWARE IN MACHINE LANGUAGE 

FOR ATARI 

ATM9NA-I 

Machine language monitor. 

Order-No. 7022 (C) SI 9.95 

ATMONA-2 

This is a tracer (debugger) that lets you 
explore the ATARI RAM/ROM area. 
You can stop at previously selected 
address, opcode, or operand. Also very 
valuable in understanding the micropro- 
cessor. At each stop, all registers of the 
CPU may be changed. Includes Atmona-1. 
Order-No. 7049 cassette S49.95 
Order-No. 7050 disk S54.00 

ATMAS 

Macro-Assembler for ATARI-800/48K. 
One of the most powerful editor 
assemblers on the market. Versatile editor 
with scrolling. Up to 17k of source-code. 
Very fast, translates 5k source-code in 
about 5 seconds. Source code can be 
saved on disk or cassette (lncl.Atmona-1 ). 
Order-No. 7099 disk S89.00 

Order-No. 7999 cartridge SI 29.00 
ATMS APPLICATION DISK 
All programs and machine language sub- 
routines from Book No. 169 on disk. 
Order-No. 7311 S20.00 

ATAS 

Same as ATMAS but without macro- 
capability. (32K and 48K RAM) 
Order-No. 7098 S49.95 

ATEXT-1 

This wordprocessor is an excellent buy 
for your money. It features screen oriented 
editing, scrolling, string search (even 
nested), left and right margin justification. 
Over 30 commands. Text can be saved on 
disk or cassette. 

Order-No. 7210 cassette S29.95 
Order-No. 7216 disk S34.9S 

Order-No. 7217 cartridge S69.00 



FORTH for the ATARI 

FORTH from ELCOMP PUBLISHING, Inc. 
is an extended Fig-Forth-version, Editor 
and I/O package included. Utility package 
includes decompiler, sector copy. Hex- 
dump (ASCII), ATARI filehandling, total 
graphic and sound, joystick program and 
player missile. Extremely powerful! 
Order-No.7055(D) reg.S99.00sale S39.95 
Floating point package with trigonometric 
functions (0 -900). 

Order-No. 7230 disk S29.95 

Learn FORTH 

A subset of Fig-Forth for the beginner. 
On disk (32k RAM) or cass. (16k RAM). 
Order-No.7053 reg. 79.00 sale S 1 9.95 
HARDWARE-ADD-ONs for ATARI 
PRINTER INTERFACE 
This construction article comes with 
printed circuit board and software. You 
can use the EPSON printer without the 
ATARI printer interface. (Works with 
gameport 3 and 4). 

Order-No. 7211 S19.95 

300 Baud serial interface (RS232-I-5V) 
Software with connector and construc- 
tion article. 

Order-No. 7291 S19.9S 

EPROM BURNER for ATARI 400/800 
KIT. Printed circuit board incl. software 
and extensive construction article. 
Order-No. 7292 S49.00 

EPROM BOARD (CARTRIDGE) 
Holds two 4k EPROMs (2532). EPROMs 
not included. 

Order-No. 7043 S 29.95 

EPROM BOARD KIT 
Same as above but bare board only with 
description. 

Order-No. 7224 S14.95 

Astrology and Biorhythm for ATARI 
Order-Nol 7223 D/C S29.95 

Birth control with the Atari(Knaus Ogino) 
Order-No. 7222 disk only! S29.95 
The APPLE in your Hand, BRAND NEW! 
Book includes introduction to 6502 
Machine Language and FORTH. BASIC 
programs never published before! 
Order-No. 178 (200 pages) S12.95 
CP/M -MBASIC and the OSBORNE 
computer 

Business Applications, compl. listings of 
mailing list, datablock, inventory, in- 
voicing and more. 
Order-No. 177 S9.95 



SUPERSOFTWARE f.the Commodore-64 
BLIZTEXTI - The best wordprocessor 
for the C-64 in the whole universe. In- 
cludes terminal software for electronic 
mail. 

Order-No, 4965(62 pages manual)S89.00 
MACROFIRE - Editor/Assembler for 
the C-64 

The best macroassembler you can buy! 
Order-No. 4963 £39.00 

SUPERBOOKS for your C-64 
The Great Book of Games, Vol. I 
64 programs for the Commodore-64. 
Order-No. 182 S9.95 

Programs from this book on disk S19.95 
MORE ON THE SIXTYFOUR 
Tips, tricks, hints, very important sub- 
routines. 

Order-No. 182 S9.95 

Programs from this book on disk S19.95 
How to program in 6502 Machine 
Language on your C-64 
Order-No. 184 S12.95 

Commodore-64 Tune-up, Vol. I 
How to expand your C-64. 
Order-No. 185 S12.95 

Small Business Programs for the C-64 
Order-No. 186 SI 2.95 

HARDWARE ADD-ONsfor your C-64 
Parallel printer interface, KIT 
Order-No. 4990 SI 9.95 

Universal Experimenter Board 
Order-No. 4970 S9.95 

Expansion Board (holds 4 exp. boards) 
Order-No. 4992 S29.95 

BOOKS, SOFTWARE, ADD-ONs for 
VIC-20, APPLE II, OSBORNE, TIMEX 
+ OSI computers 
Tricks for VICs (Book) 
Order-No. 176 S9.95 

Universal Experim.board for the VIC-20 
(Save money with this great board). This 
board plugs right into the expansion slot 
of the VIC-20. 

Order-No. 4844 reg. S19.95 sale S9.95 
Programming in BASIC and machine 
language on the ZX-81 (82) TIMEX1000 
Order-No. 174 (book) S9.95 

The Custom APPLE -I- Other Mysteries 
A complete guide to customizing the 
APPLE software and hardware. 
Order-No. 680 S24.95 

We also stock the boards which are used 
in the book No, 680 (bareboards). 




PAYMENT: Check, money order, VISA, MASTER 

CARD, Eurocheck, ACCESS, Interbank 

Prepaid orders add S3.50 for shipping (USA) 

SS^K) handling for C.O.D. 

All orders outside USA: add 15% shipping, California 

residents add 6.5 % sales tax. 

Elcomp Publishing, Inc, 53 Redrock Lane, Pomona CA 91766, Phone: (714) 623-8314, Telex: 29 81 91 



Tiodore-64 are trademarks of Commodore Bu: 



5 Machines, APPLE i 



emark of APPLE Computer, 



eg. tradem. of Digital Ri 



CIRCLE #141 ON READER SERVICE CARD. 



PAGE 78 



ANALOG COMPUTING 



ISSUE 18 




HBUG 

Hudson^s 
Debugging 

Utility 



16K Disk 



by Tom Hudson 



HBUG is a simple debugging utility designed for 
readers of ANALOG'S Boot Camp column who do 
not own the Atari Assembler Editor cartridge. The 
program's syntax is the same as DEBUG, allowing 
Boot Camp readers to execute the examples and 
observe the results. 

Why HBUG? 

Why write another debug package? I'm sure quite 
a few readers own the MAC/65 assembler from 
Optimized Systems Software. This is a fine package (I 
use it myself, and recommend it highly ). As you may 
know, MAC/65 comes with its own debug package, 
BUG/65. BUG/65 is a very powerful debugging 
tool, but it has a couple of shortcomings. 

First, the only way to stop a program that is run- 
ning in an infinite loop is to press SYSTEM RESET. 
As a result, there is no way to determine register 
contents or where the program was looping. 

Second, many of Boot Camp's illustrative pro- 
grams rely on the use of the BRK instruction to stop 
execution at selecteci locations. BUG/65 doesn't 
recognize the BRK instruction, and any attempt to 
perform a BRK locks up the system. BUG/65 
allows you to set breakpoints, but these are generally 
cumbersome to use. 



HBUG overcomes these shortcomings, making 
life easier for those new to assembly language. 

Typing it in. 

Before you start typing anything in, take a look at 

the listings accompanying this article. 

Listing 1 is the main data and data checking 
routine, written in Atari BASIC. This program 
will create a file on your disk called HBUG.COM. 
Listing 2 is the assembly source code for 
HBUG, written with OSS's MAC/65. You 
don't have to type this in to use HBUG, but the 
adventuresome types out there (you know who 
you are) may like the assembly typing experi- 
ence. 
Follow the instructions below to create the HBUG. 

COM file. 

1. Type Listing 1 into your Atari and verify 
your typing with D:CHECK2 (see page 30). 

2. Type RUN and press RETURN. The pro- 
gram will begin checking the data lines, printing 
the line numbers as it goes. You will be alerted if 
the program finds any problems. Fix any incor- 
rect lines and re-RUN the program as necessary 
until all errors are eliminated. 

3. When all DATA lines are correct, you will be 
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prompted to INSERT DISK, PRESS RETURN. 
Place a disk in drive #1 and press RETURN. The 
message WRITING FILE will appear, and the 
computer will create the HBUG.COM file, 
printing each line number as it goes. When the 
READY prompt appears, you're ready to use 
HBUG. Make sure the BASIC program has 
been saved under a different filename before 
continuing. 

Usually, you'll want to load the object code of the 
program to be executed before loading HBUG. If 
the program is already in memory, simply skip ahead 
to the HBUG loading instructions. 

If you want to load the object code in Atari DOS, 
go to the DOS menu screen and type: 



Filenaiiie.OBJ 1:1*111:1: 



If you're using OS/A+, type: 

LOfl FilenaMe.OBJ imuMIl 

To load HBUG with Atari DOS, go to the DOS 
menu screen and type: 



HBUG.COH i:iani:i:i 

HBUG will load and run automatically. 
To load HBUG with OS/A+, go to the OS/A+ 
input screen and type: 

HBUG mmmci 

HBUG will load and run automatically. 

Up and running. 

When running, HBUG supports 6 commands, 
which are a subset of the Atari assembler editor 
DEBUG program's commands. These commands 
are: 

DOS CRETURN TO D051 

DR fDISPLflV REGISTER CONTENTS) 

CR< (CHaNGE REGISTER CONTENTS) 

D (DISPLftY MEMORY CONTENTS) 

C (CHANGE tCMORV CONTENTS) 

6 fEKECUTE AT ADDRESS) 

These commands are the most important ones, as 
far as we're concerned. I would have liked to include 
the "disassemble memory" command, but it would 
have increased the size of the program considerably. 
The use of these commands is described below. 

If any invalid commands are entered, HBUG will 
"beep" at you and show the line you entered with the 
invalid character highlighted in inverse video. 

DOS. 

This command is simple — it transfers control to 
the disk operating system. Once there, you can per- 
form any function allowed by DOS. If you're using 
OS/A+, typing RUN restarts HBUG. If you're 
using Atari DOS, you'll have to reload HBUG to 
start it up again. 



Change registers. 

You can set the registers (A, X, Y, Processor status 
[P], and Stack pointer [S]) to any values you like 
before executing a test program. Be careful about 
changing the P and S registers, since invalid values 
placed here can cause a system crash. 

The format of the Change Registers command is: 

CR< Raj Rx, Ry, Rp, Rs 

Mhere Ra = AccuMulator 
Rx = K register 
Ry = Y register 

Rp = Processor status register 
Rs = stack pointer 

The values entered for the registers must be hexa- 
decimal, from through FF. 

Figure 1 shows several forms of the CR command 
and their effect on the registers. 

CR<1F,6E Changes the Accumulator to $1F 
and the X register to $6E. 

CR<„,4C Changes the P register to $40. All 
other registers are unchanged. 

Figure 1. 

You can see that by inserting commas, you can 
leave certain registers unchanged while altering oth- 
ers. 

Display registers. 

This command is the companion of the CR com- 
mand. Its format is: 

DR 

Whenever you want to see what the current set- 
tings of the user registers, simply type DR and press 
return. The computer will display something like 
this: 

a=QZ K=32 Y=81 P=33 S=E2 

Display memory. 
HBUG allows you to display the contents of any 
memory byte or group of bytes. The formats of this 
command are: 

FORMAT l: Dxxxx 
FORMAT 2: D 

FORMAT 3: Dxxxx, yyyy 

Format 1 displays eight bytes of memory 
starting at address xxxx. 

Format 2 displays the eight bytes of memory 
starting at the last specified address plus 8. 

Format 3 displays the memory block from 
address xxxx to yyyy. The display can be paused 
by pressing CTRL-1 and stopped by pressing 
the BREAK key. 

(Continued next page.) 
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This command differs from the cartridge com- 
mand in that the ATASCII characters corresponding 
to the displayed bytes are shown to the right of the 
hex values. 

Change memory. 

You can change any memory byte in system RAM 
with the Change Memory command. Its format is: 



Cxxxx< bytel, byte2. 



byte n 



This command changes the memory starting at 
address xxxx to the hex values following the "<" 
symbol. Like the CR command, the C command 
allows you to skip memory locations by using com- 
mas to indicate skipped bytes. Figure 2 shows sev- 
eral examples of the Change memory command. 

C 5000<1F,45,DE Change location $5000 
to $1F, $5001 to $45, 
and $5002 to $DE. 

C 600<20„„F6 Change location $0600 

to $20 and location 
$0604 to $F6. Leave all 
other locations as is. 

Figure 2. 

Use care when changing memory bytes! Be sure 
you're using the address you want, because careless 
changes could wipe out vital system data, causing a 
fatal lockup. Also, take care not to change any loca- 
tions from $2000-26FF, since this is where HBUG 
is located. 

Execute user program. 

This command is what HBUG is all about. It 
allows you to execute assembly code you have placed 
in memory. Its format is: 

Gxxxx 

When the G command is entered, the computer 
(1) changes the 6502 registers to the values con- 
tained in the user registers (see CR and DR), and (2 ) 
jumps to the address specified by xxxx. 

The user program will continue to execute until it 
is stopped by the BREAK key or tries to execute a 
6502 BRK instruction. If either of these events 
occurs, the program will be interrupted, HBUG will 
place the 6502 register contents in the user registers 
and HBUG will take control. The location where 
the program was executing and the user registers will 
be displayed in the following format: 



48F5 



ft=lB K=6F Y=2D P=84 5=Eft 



HBUG will perform as advertised unless the user 
program violates the HBUG rules, outlined below. 

HBUG no-nos. 

1. The user program should not change any 
memory locations from $2000-26FF. This is 
where HBUG is located, and any changes to 
this memory could send HBUG, your pro- 



gram, and the system off to never-never land. 

2. The user program should not use the de- 
ferred vertical blank vector or shut off vertical 
blank interrupts. HBUG uses deferred vertical 
blank to detect the BREAK key during user pro- 
gram execution. Don't steal this vector unless 
you want to see HBUG crippled. If you must 
use vertical blank interrupts, try using the im- 
mediate vertical blank. 

3. Don't touch the VBREAK vector ($0206- 
0207). These locations are used to detect the 
execution of a 6502 BRK instruction, and al- 
teration of these bytes will once again cripple 
HBUG. 

If you follow these instructions and avoid careless 
alteration of HBUG's memory, HBUG should help 
you debug the programs that BUG/65 couldn't. D 

BASIC Listing. 

10 REM *** HBUG *** 

29 DflTft fl, 1,2, 3, 4, 5, 6, 7, 8^9, 8, 8, 0,8, 8, 
0,0,18,11,12,13,14,15 

30 DIM DATS Ol), HEM C22J : FOR H=8 TO 22: 
READ H : HEX CKJ=N: NEXT X:LINE=:990 :RE5T0R 
E ie80:TRflP 118:? "CHECKING DftTO" 

40 LIHE=LINE+10:? "LIHE : "; LINE:READ DA 

TS:IF LENtDftTSjO?© THEM 160 

50 0ftTLI«=PEEKC183J+PEEKC184)*256:IF D 

flTLIHOLINE THEN ? "LINE "iLINE;" MI55 

ING!":CND 

60 FOR X=l TO 89 5TEP 2 : Dl=fl5C(DftT5 CX, 

XJ ) -48 : l>2=ft5C CDftTS (X+1 , X+1) 1 -48 : BYTE=H 

EX(DlJ»16+HEXtD2J 

70 IF Pfl55=2 THEN PUT ttl, BYTE: NEXT X:R 

EAD CHKSUN:GOTO 40 

80 TOTAL=TOTftL+BYTE:IF T0TflL>999 THEN 

TOTflL=:TOTflL-1000 

90 NEXT X:READ CHK5UW:IF TOTflLzCHKSUM 

THEN 40 

100 GOTO 168 

110 IF PEEKC1953 06 THEM 168 

120 IF Pft55=2 THEN PUT »1, 224: PUT ttl, 2 

:PUT ttl,225:PUT ttl,2:PUT ttl,0:PUT ttl, 3 

2: CLOSE ttl: END 

130 ? "INSERT DISK, PRESS RETURN"; :OIM 

IN$(1}:INPUT IN$:OPEN ttl,8,e,"D : HBUG . 
CON" 
140 PUT ttl, 255: PUT ttl, 255: PUT ttl, 9: PUT 

ttl,32:PUT ttl,159:PUT ttl, 37 
150 ? :? "WHITING FILE":P0SS=2:LINE=99 
0:RESTORE 1000:TRAP lie:GDTO 48 
160 ? "BAD DATA: LINE "; LINE: END 
1088 DATA A98e8D0ED48D8325BA8E7925AD06 
828D1326AD07028D1426A9248D8782A9478D86 
02A224A07DA987285CE4A940, 79 
1810 DATA 8D0ED420B82320132420EF23A280 
A9878D4403A9258D4583A9858D4283A97F8D48 
e38E49832856E438E2A208BD, 272 
1020 DATA 8725C99BF883E810F6E88OF8CC8E 
8225A200BD8725C92eD8i48AA8B98825998725 
C8CC8225D8F4CE82254C6C20,99 
1838 DATA E8EC8225OODFAD8225D8834C3320 
A9008D7E25AC7E25B9D4248D7F25BED324Ae0O 
898725DDC824D01BC8E8EC7F,862 
1840 DATA 25D8F1AD7E250AAA6DDA248D8025 
BDDB248O81256C8825EE7E25AD7E25C907DOC5 
20F6234C332eB98725C99BF0,412 
1050 DATA 834CDS2eA2E4A062A9e72e5CE4AD 
132&8D8682AD14268D8702eCOA88O86829EF48 
2820B823AD7A25283824AD7D,291 
1060 DATA 258D8025AD7C258DFF24AD7B252e 
3824AD7D258DFE24AD7C258DFD242051212013 
24A2FDA0242017244C3320B9,530 
1078 DATA 8725C99BFe034CD52O2O5121A285 
A0252017244C3328A00OB97525283024BE6025 
AD7C259D8525AD7D259D8625,388 
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1088 DATA C8Ce05DeE6eeA2e4BD75259D8726 

CAlOF7A20eA98e8DOD268DOC2eB98725C99BFO 

0AC92CF8862OBD214C8321AD,33e 

1090 DATA 0C2eF006ADOD2e9D0726B98725C9 

9BDO0EA204BD07269D7525CA1OF74C3320E8C8 

E0O5D8C14CD52O8E8525A20F, 194 

1100 DATA DDe525F006CA10F84CEF210E0D2e 

OE0D26eE0D2e0E0D2e8A0D0D2e8D0D26EE8C2e 

AD0C26C903B0O5AE8525C868, 883 

1110 DATA 68684CD52OB98725C99BD01DA5D4 

18690885D4A5D5690085D5A9ee8D1126A9078D 

lO2e4C50224CD528206123AE,555 

1120 DATA 1226FOF5AE0E2G8eD4AE0F2686D5 

C99BFODAC92CD0E3C8206123AE1226F0DAC99B 

D0D6ADOE2638E5D48D1026AD,656 

1130 DATA 0F26E5D58O1126A920A22C9D3225 

CA1OFAA91BA20E9D4F25CACA1OF9A5D42O3824 

AD7O258D3525AD7C258D3425,403 

1140 DATA A5D5203024AD7D258D3325AD7C25 

8D3225A000BlD4C99BF00e6E2A259D4F252O3O 

24BE2225AD7D259D3825AD7C, 975 

1150 DATA 259D3725C8AD102638E9O18D102e 

AD1126E9008D1126100620OC244C3328C008D0 

C4200C241O034C332eA5D418,354 

1160 DATA 698885D4A5D5698085D54C5022B9 

8725C93CF016206123AE1226F04BC93CD047AE 

0E2686D4AE0F2&8eD5C8A208 , 468 

1170 DATA A9008D0D268DeC2eB98725C99BF0 

OAC92CF00e28BD214C0S23ADeC26F0OD8C8625 

8AA8AD8D2691D4AC8625B987, 181 

1180 DATA 25C99BDfl034C3320E8C84CFD224C 

D520206123C99BD01DAD1226F018AE79259AAD 

782548AE7625AC7725AD7525, 182 

1190 DATA EE8325286C0E2e4CD52OA9O08DeE 

268DBF268D1226B98725C99BF008C92CF004C9 

3CD0eie0A20FDD652SF008CA,864 

1200 DATA lOF868684CD5280E0E262E0F2e0E 

0E262E0F260EOE262EOF260EeE262EOF268A0D 

0E268D0E26EE1226AD1226C9, 437 

1210 DATA 05B0D2C84CeC23D82OD923A200A9 

E68D44e3A9248D4503A9e38D4203A90C8D4AO3 

8E4B032O56E468A2O78E8425,8ei 

1220 DATA A9flC9O42832056E4CE8425AE8425 

10F060A2EAA0244C1724A980198725998725A2 

EFA024201724A287Ae254C17, 511 

1230 DATA 24A232A0254C1724A2E9AO248E44 

038C4503A200A9098D4203A97F8D48038E4903 

2O56E46O48290FAABD65258D, 595 

1240 DATA 7D25684A4A4A4AAABDe5258D7C25 

6eAD8325D0026840D8A9008D83258E76258C77 

25688D7525688D78256838E9, 252 

1250 DATA O28D7A2568E9008D7B258E8525BA 

8E7925AE8525584CFD20AD8325F043A511D03F 

A98O8511A90O8D8325BABD81 , 185 

1260 DATA 018D7725BD02O18D7625BD03018D 

7525BD04018D7825BD05018D7A25BD8eei8D7B 

258A1869068D7925A9209D06, 879 

1270 DATA OlA9FD9D05O14Ce2E4444F534452 

43523C444347OO03050809eA8BDB283A2ieE21 

F421D0223A23453A9B9B4842, 393 

1280 DATA 55479BFD494E505554204552524F 

52219820202820202028202820202041302020 

2O583D262O2e593D20202OSO,148 

1290 DATA 3D2O2e28533D20209Be0e3O6O98C 

0F1215ei03050709OB0D0F2020202020202O2e 

202020202028202020202020,456 

1300 DATA 2020202820202020202020202020 

2e202O202O2O2O2O2O202O9B0eOBlO151A3O31 

323334353637383941424344,282 

1310 DATA 4546800800000000000000000000 

00008000000000000800000000080000080080 

000080000000000008000000,421 



CHECKSUM DATA 
(See p. 30) 



10 DATA 445,957,808,431,727,198,599,55 

3, 272, 7©!, 611, 112, 74, 561, 36, 7085 

160 DATA 165,899,678,58,280,953,769,78 

8,545,988,18,936,728,156,4,7781 

1140 DATA 914,488,888,896,938,985,945, 

783,671,650,881,931,906,613,145,11466 

1290 DATA 871,748,348,1959 



Assembly Listing. 



HUDSON'S DEBUQ PROGRAH ( HBUG I 



DDSVEC » *0A 

BRKKEY - »11 

STACK ■• »eieB 

VBREAK - »e2et, 

RUNAD - «02E0 

ICCOM - »a34Z 

ICBADR - »a344 

ICBUEN - •0348 

ICAUXl - •034A 

ICAUXZ - •034B 

NMIEN - •D40E 

CIQV - »E436 

8ETVBV - »E43C 

XITVBV - »E462 
I 

IPage z«ro usags 

CML - »D4 

CMH -= (DS 

I 

, 

IProgram entry paint 

I 

HBUG 



(DOS run iddress 
■BREAK key status 
IhardMAre stack 
IBRK Inst vector 
lorag run addr 
luIQ comffland 
ICIQ buffer address 
ICIQ buffer length 
■CIO aux. byte I 
ICIO aux. byte 2 
(Interrupt enable 
ICIO entry paint 
IVBLANK setup 
IVBLANK exit 



(«y tHO-byte 

I address work area 



LDA 0*00 Iturn off. . . 

BTA NMIEN (Interrupts 

STA EXEC land execute flag 

TBX (get stack pointer 

STX USERS (put In user area 

LDA VBREAK I save old BRK 

STA BRKSVL (vector In ey 

LDA VBREAK-H (work area 

STA 8RKSVH (for later 

LDA » >BRKHAN (now point to 

STA VBREAK+l ( c»y BRk inst. 

LDA » <BRKHAN (routine 

STA VBREAK 

(set Up 

( verti cal 

( blank 

I Interrupt 

(turn on the 

(VBLANK Interrupt 

(open GR,0 screen 

(carriage return 

(print HBUG prompt 



( 



LDX « >VBI 

LDY • <VBI 

LDA •? 

J8R SETVBV 

LDA **40 

STA NMIEN 

JSR NEM8CR 

J3R PRTCR 

JSR PROMPT 

LDX ma 

LDA « <MVBUFF (point to 

STA ICBADR (my input 

LDA • >MYBUFF (buffer 

STA ICBADR-fl 

LDA »3 (GET RECORD command 

BTA ICCOM 

LDA »«7F (my buffer's 

STA ICBLEN (length 

STX ICBLEN+1 

JSR CIDV (get input! 

BHI INPT2 (go bacK if error 



(This section 'squishes' all the 
(Spaces out of the input line. 

LDX t0 (first find end 

FINDBE LDA MYBUFF.X (of line 

CMP •»9B (CR7 

BED aOTEND (y 

INX 

BPL FINDBE 

QOTEND CPX #0 

8EQ INPUT 

STX ENDPTR 

LDX (0 



SQUISH 



(no, next char. 
( keep 1 ODki ng < 
(CR first char? 
(yea, try again, 
(save end index 
(start M/lst char 

LDA MYBUFF.X (get the character 

CMP »32 (Space? 

BNE NOSQSH (no! 

TXA (move index 

TAY (to Y register 

3QSHLP LDA MYBUFF+l.Y (shift all 

STA MYBUFF.Y (characters 

INY (back to remove 

CPY ENDPTR (the space. 

BNE SOSHLP 

DEC ENDPTR (line 1 shorter 

JHP SQUISH (keep squishing! 
MOSQSH INX (next char 

CPX ENDPTR (end? 

BNE SQUISH (no, keep going! 

LDA ENDPTR (was line all Spaces? 

BNE QETCMD (no, get command 

JMP INPUT (gat another input! 

(Now find command 8r process it 



OETCMD 



LDA »0 (Start with 1st 

STA CMDPIR (command. 

LDY CMDPTR (get command pointer 

LDA CMD3T-H,Y (get index of 

STA CEND (comffland text end 

LDX CMD8T,Y (and start. 

LDY »0 (point to ist char 

LDA MYBUFF.Y Sis buffer char 

CMP CMDTXT.X (- command char? 

BNE NOTCMD (no! 

(yes, try next char 
(next command char 
(end of command? 



(no, keep comparing! 
(yes, mult command 



NOTCMD 



INY 

INX 

CPX CEND 

BNE CMDCMP 

LDA CMDPTR 

ASL A (Index by 2 to point 

TAX (into jump table 

LDA CMDADR,X (get command routine 

STA CMDJMP (aadress low byte 

LDA CMDADR'M,X (and high byte 

STA CMDJMP-ri (and saveT 

JMP (CMDJMP) (jump to routine! 

INC CMDPTR (try next command 

(get pointer 

(more commands? 

(yes ! 

(oops! bad command! 

(get another input 



LDA CMDPTR 

CMP #7 

BNE CHKCMD 
BOTERR JSR ERRMSQ 

JMP INPUT 
( 

(This section handles the DOS 
(command. It shuts off the HBUQ 
(VBLANK and BRK vectors and JMPs 
(to DOS. 
I 



I 

iShow ra 
IBRK Ini 
I 
SHOBRK 



LDA MYBUFF.Y I g*t n»xt ch«r 

CHP •»9B ICR7 

BEQ DOSOK lyc«, 0° to DOS 

JHP QQTERR fno, Invalid connand ! 

LOX • >XITVBV tnaint VBLANK 

UDY • <XITVBV lEack to th« 

LDA •? liystan ixit 

JSR 8ETVBV Ipolnt. 

LDA BRKSVL irsstora old 

STA VBREAK I myitait 

LDA BRKSVH ) BRK vactar frcia 

STA VBREAK-rl I miva araa 

JHP (DOSVEC) )gO to DOS'. 

as aftar BREAK kay or 
cruet 1 on. 



BNE CR8TRT (no, loop back. 
JMP BOTERR lUH-OH! too many! 



PHP 
PLA 
AND 
PHA 
PLP 
JSR 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
LDX 
LDY 
JSR 
JMP 



NEWSCR 

USRPCL 

BINHEX 

HEXZ 

BRK4 

HE XI 

BRK3 

USRPCH 

BINHEX 

HEX2 

BRK2 

HE XI 

BRKl 

SETREB 

PRTCR 

» <BRKT 

* >BRKT 

PRINT 

INPUT 



!gat 
(Stat 
I tur 
I and 
; mta 
trm- 
Igat 
i con 
I gat 
Iput 
I get 
(put 
Igat 
I con 
Iput 
lln 
land 
lln 
laat 
!car 
XT In 
XT |B 
Iprl 
I and 



asaor 

BRk -Flag 

back In 
agistar ! 
scraan 

countar loM 
to haK 
digit 
Ina 

digit 
Ina. too 
Igh 

to hax 
digit 



n off 

put 
tus r 
open 

prog 
vart 

low 

in 1 

high 

in 1 

PC h 
vart 

1 OM 

Una 

high 
Una. 

ramt 
ri aga 
oint 
REAK 
nt it 

gat Input 



digit 

of lina 
raturn 

to 

taxt 



{Display raglstara <DR} 
SHORES 



I Sat Up 
I 

SETREB 
SETLP 



LDA MVBUFF.Y lis next char 

CMP »»9B la CR7 

BEQ DROKAY lyas, Ifa OK! 

JMP SQTERR lotharwisa ERROR 

JSR SETREQ Igat raglstar* 

LDX * <DRTXT Ipolnt to the 

LDY » >DRTXT 1 BR taxt 

JSR PRINT Iprint It 

JMP INPUT land gat input 

ragiatar dlap area 

LDY »e I start w/usar byte 

LDA UBER.Y Igat data 

JSR BINHEX iconvart to hex 

LDX DRPTR.Y Igat Its position 

LDA HEXl Igat first digit 

STA DRTXT.X Iput in Una 

LDA HEX2 Igat second digit 

STA DRTXT-H.X Iput in line 

INY inaxt byta 

CPY »S I dona 37 

BNE SETLP mot yet I 

RTS I all dona! 



IChanga registers (CR> 



CHBREG 


LDX 


*4 


INITMP 


LDA 


USER, X 




STA 


tmpuSr 




DEX 






BPL 


INITMP 




LDX 


•e 


CRSTRT 


LDA 


»e 




STA 


BHOLD 




STA 


HDIQ 


CRLOQK 


LDA 


MYBUFF 




CMP 


• •9B 




BEQ 


STOTRY 




CMP 


««2C 




BEQ 


STOTRY 




JSR 


CTOBIN 




JMP 


CRLOOK 


STOTRY 


LDA 


HDIS 




BEQ 


NXTCCK 




LDA 


BHOLD 




STA 


TMPUSR 


NXTCCK 


LDA 


MYBUFF 




CMP 


•»9B 




BNE 


NXTCHR 




LDX 


«4 


SETUSR 


LDA 


TMPUSR 




STA 


USER,X 




DEX 






BPL 


SETUBR 




JMP 


INPUT 


NXTCHR 


INX 
INY 






CPX 


• S 



Ifirst copy user 
I registers 
X Ito temporary 
Ihold area 



I 1st 
1 zero 
Ihyte 
; and 

Y loet 
|CR7 
lyes, 
icomm 
lyes, 
I conv 
I and 
I any 
ino, 
lyes, 

X lln 

Y I Mas 
la CR 
mo, 
I othe 

X I cop 
I temp 
Iback 
I user 
Iget 
I next 
I next 
I done 



user byte 

out . . . 

hold 
digit count 

input char 

all done. 

i7 

try store 
ert It to binary 
do next one 
dlgits7 
skip it! 

save the byte 
mporary table 
his 

ap going. 

ise, 

the 

ary table 

o the 



registers 
nother lina 
user register 
character 
5 regs7 



IConvert char, to binary # 

I 

CTOBIN 



STX 
LDX 
CMP 
BEQ 
DEX 
BPL 
JMP 
ASL 
A8L 
ASL 
ASL 
TXA 
ORA 
STA 
INC 
LDA 
CMP 
BC8 
LDX 
INY 
RTS 
PLA 
PLA 
JMP 



XHOLD 
»»SF 
HEXDIQ, 
QOTHD 

HD8CAN 

CBERR 

BHOLD 

BHOLD 

BHOLD 

BHOLD 

BHOLD 

BHOLD 

HDIS 

HDIQ 

• 3 

CBERR 

XHOLD 



I sav 
I set 

X ICOAi 

■ got 
I naxt 
iscan 

■ not 
ishlf 
I left 
inult 
116 
Iget 
land 
(the 
I one 
(are 
I than 
lyas- 
(rest 
I naxt 
I and 
I ramo 
If roe 
I and 



X ragi 
scan Index 
pare ASCII 
it! 

char 

all 16 
In table! 
t current • 
times to 

Iply it by 

this digit 
add It to 
hold area. 
mora digit 
there more 

27 

too big! 

are X rag 

buffer char 

xlt 
ve return addr 

stack 
do error routine 



IDlsplay memory content* 



SHOMEM 



SMERR 
GETSAD 



SHOMLN 
CLRML 



LDA 
CMP 
BNE 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
STA 
LDA 
STA 
JMP 
JMP 
JSR 
LDX 
BEQ 
LDX 
STX 
LDX 
STX 
CMP 
BEQ 
CMP 
BNE 
INY 
JSR 
LDX 
BEQ 
CMP 
BNE 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
LDA 
LDX 
STA 
DEX 
BPL 
LDA 
LDX 
STA 
DEX 
DEX 
BPL 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
CMP 
BEQ 
LDX 
STA 
JSR 
LDX 



MYBUFF, Y 

• •9B 
GETSAD 
CML 

ts 

CML 
CMH 

• 
CMH 

• 
CQUNTH 

• 7 

CQUNTL 
SHOMLN 
BOTERR 
0ET4 
G4DIGS 
SMERR 
ADL 
CML 
ADH 
CMH 
t*9B 
SHOWS 

• *2C 
SMERR 

SET4 

84DIGS 

SMERR 

»«9B 

SMERR 

ADL 

CML 

COUNTL 

ADH 

CMH 

COUNTH 

»32 

• 44 
8H0M1 , X 



I 1 s character . . . 
a CR7 

no, get address. 
gat last address 
and add 8 to It 
since no address 
was specified 



show only 8 
bytea 



go show ' em ! 

jump to mrr routine 

gat 4-byte address 

any digits found7 

no! 

save address 



lln 
I work 



rm». 



after address? 
s, show 8 bytes, 
m«a7 

, bad command 
xt char 
t and address 
t any digits? 

after end addr? 

w subtract 
d address 
om start 

at number 

ytes to 
splay. 



(clear out 

I displ ay line 



CLRML 

»*1B land set up ESC 
#14 icharacters 
ASCII, X (in the ASCII 
(display area 



8ETESC 

CML icon 

BINHEX icur 

HEX2 (to 

8H0M4 ichai 

HEXl (and 

SH0M3 (the 

CMH (die 

BINHEX (thi 

HEXZ (2 t 

SH0M2 (the 

HEXl Ibyt 

SHOMl I add 

#0 ista 

(CML),Y (get 

•»9B ICR7 

N09B (yes 
ASCPOS.Y fpu 

ASCII, X (dis 

BINHEX Icon 

SMPOS.Y (get 



vert the 
rant address 
ascil hex 
racters 

put In 

memory 
play line, 
s is done 
Imes, for 

low and high 

s of the 

ess 
rt showing! 

mem byte 

. don ' t show it ! 
I In ASCII 
play area 
vart byte to hex 
posl t £on 



LDA 
STA 
LDA 
STA 
INY 
LDA 
SEC 
SBC 
STA 
LDA 
BBC 
STA 
BPL 
JSR 
JMP 
CPY 
BNE 
JSR 
BPL 
JMP 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
JMP 



HEX2 (get low char 
SMDATA-rl,!! land store 
HEXl (get high char 
SMDATA.X (and store. 

(next byte 
COUNTL mow decrement 

I the byte count 

Iby 1 



• 1 

COUNTL 
COUNTH 

• « 

COUNTH 
M0RE8M 
PDATA 
INPUT 
*S 

BILDLN 
PDATA 
ND8T0P 
INPUT 
CML 

• 8 
CML 
CMH 

•e 

CMH 
SHOMLN 



■D 

> 
m 

00 
N3 



I more? yes! 
Ino more, print line 
land get next command 
Idone 8 bytes? 
ino, loop back 
Idone 8, print 'em 
Ino BREAK key 
(get next command 
(incramant display 
(address by 8 



land loop back. 



IChanga memory contents (CnnnnO 

I 

CHQMEM 



CMDFLT 
CnSTRT 



LDA 
CMP 
BEQ 
JSR 
LDX 
BEQ 
CMP 
BNE 
LDX 
STX 
LDX 
STX 
INY 
LDX 
LDA 
STA 
STA 
LDA 
CMP 
BEQ 
CMP 
BEQ 
JSR 
JMP 
LDA 
BEQ 
STY 
TXA 
TAY 
LDA 
STA 
LDY 
LDA 
CMP 
BNE 
JMP 
INX 
INY 
JMP 
JMP 



MYBUFF, 

• •3C 
CMDFLT 
GET4 
S4DIS8 
CMERR 

• *3C 
CMERR 
ADL 
CML 
ADH 
CMH 

• 
»0 

BHOLD 
HDIS 
MYBUFF, 
»»9B 
CMTRY 
*«ZC 
CMTRY 
CTOBIN 
CMLOOK 
HDIQ 
NEXTCM 
YHOLD 



Iget char 
I •?•? 

(yes, default address 
(get the address 
■got any digit*? 
I no ! 

mext char •<*? 
I no ! 

leave the 
I change memory 
(address on 
(page zero, 
(next buffer char 
(1st memory byte 
(zero out . . . 
(byta hold 
land digit count 

Iget char 
ICR? 

(yes, all done! 
I comma? 

(yes, store last byte 
(convert char to binary 
(and get next 



ana get nex^ 
any digits? 
no! don't store 
save Y register 
I move X . . . 
Ito Y 
BHOLD Iget byte to store 
(CMD.Y land store It! 
YHOLD Iget Y back 
MYBUFF, Y Iget last char 
•*9B iwas It CR? 
NXTLOC mo, continue 
INPUT I all dona! 

Inaxt mem byte 
(next Input char 
( loop back ! 
(go to error routine 



> 

> 

r— 
O 

o 

o 
o 

K 

"D 

C 
H 
Z 

o 



CMSTRT 
QOTERR 



CMERR 
I 

(Execute at address (Qnnnn) 

I 

EXECUT 



JSR 
CMP 
BNE 
LDA 
BEQ 
LDX 
TXS 
LDA 
PHA 
LDX 
LDY 
LDA 
INC 
PLP 
JMP 
JMP 



et the run addres* 



EXERR 
I 

I Get 4-character address 



QET4 (get the run 

W*9B lis that all? 

EXERR (no! 

Q4DIGS (got any digits? 

EXERR mo! 

USERS Iput user stack 

Ipointsr in 3 
USERP Iput user status 

ion stack 
USERX I set user X rsg 
USERY land user Y rag 
USERA land accumulator 
EXEC iset execute flag 

Iget status off stack 
(ADD igo to run address! 
QOTERR (go to error routine 



I zero out. . . 
(address low byte 



(address high byte 
nt 



LDA »0 

STA ADL 

STA ADH 

STA Q4DISS (digit CO 

LDA MYBUFF, Y (get char 

CMP •»9B ICR? 

BEQ 04END lyes, all done! 

CMP eszc I comma? 

BEQ 04END (yes, all done! 

CMP ••3C I '<• 7 



CO 
CD 

c 
m 



QAEND 

TESTIT 

B4SCAN 



BNE TEBTIT |no, ch.ck digit 

.is (•xlt! 

!;SJ *?*'' '""* ^*'' ""ait polnt»r 

CMP HEXDIQ.X III It thiS char? 

BEQ Q0TS4D ly*«! 



DEX 

BPL Q4aCAN 

PUA 

PLA 

JMP BOTERR 

ASL ADL 

ROL ADH 

ASL ADU 

ROL ADH 

ASL ADL 

RQL ADH 

ASL ADL 

RQL ADH 

TXA 

ORA ADL 

STA ADL 

INC Q4DIQ3 



(try n»xt h«K digit 
I loop 1-f mora. 
Idlmcard r»turn 
I addraaft, 
IBhoM arror, 
(thla coda 
lahl-rts tha 
icurrant «ddr«sa 
)laft 4 bit! 
I In ordar to 
1 mul t ipl y It 
(b/ 16. 

Igat thl« digit 

land add It to 

ftha addraaa. 

fona mora digit 



INC Q4DIQ3 fona mora digit 

LDA B4Dies ihow many total? 

CMP #3 mora than 4? 

BC8 a4ERR lyaa! arror I 

INY ;ok do naxt character 

JMP 34L00P land loop back. 

I Sat up naw graphlca scraan 



CLD 

JSR NOIOCB 



icloaa all lOCB'a 



inoH Dpan acraan! 



LDX »e 

LDA « <EADR I • E: 

STA ICBADR 

LDA * >EADR 

STA ICBADRfl 

LDA *3 

STA ICCOM 

LDA VIZ 

STA ICAUXl 

STX ICAUX2 

JSR CIOV 

RTS 



I OPEN command 
I I/O 



Izaro aux byt 
lopan It! 
land raturn. 



ICloaa all lOCB'i 

I 

NOIOCB LDX »7 

STX SAVEX 

CLODP LDA #12 

STA ICCOM, X 
JSR CIOV 
DEC SAVEX 
LDX SAVEX 
BPL CLOOP 
RTS 

I 

tShovi HBUB prompt 

I 

PROMPT LDX » <HMSB 
LDY • >HMSB 
JMP PRINT 

I 

IShON mrrar masaaga 



Iflrat cloae 
lall lOCB'a. 
ICLQSE coanand 

Icloaa It! 

inaxt lOCB 

imora lOCB'a? 

lyaa! 

lall dona ! 



Ipoint to 

I HBUB maaaaga 

land print it! 



ERRMS8 LDA #(80 I aat high bit 
ORA MYBUFF.Y llnveraa tha 
STA MYBUFF.Y I Invalid character 
LDX • <ERRTXT IpOlnt to 
LDY « >ERRTXT (error maaaaga 
JSR PRINT Iprlnt it 
LDX * <MYBUFF Ipoint to 
LDY • >MYBUFF I input buffer 
JMP PRINT Iprlnt It, too! 

I 

IPrint memory dlaplay line 

PDATA LDX • <SH0t11 Ipoint to memory 
LDY • >aHOMl iSlaplay line 
JMP PRINT Iprlnt It! 

IPrint carriage return only 



LDX 
LDY 



<CR 
>CR 



Ipoint to CR and 
l-fall thru to print 



ISeneral-uaa print routine 



t 

PRINT 



I 



STX ICBADR leave print area lo 

STY ICBADR+1 land high 

LDX »e liaro X reg. 

LDA #9 iPUT RECORD coBmand 

STA ICCOM 

LDA t«7F l«et up 

STA ICBLEN Ibuffer length 
STX ICBLEN+1 
JSR CIOV Iprlnt It! 
RTS land axlt. 



PHA imava byte 

AND ««0F Igat low 4 bite 

TAX Iput In index 

LDA HEXDie.X Hookup hex 

STA HEX2 land eave 

PLA Iget byte again 

L8R A lahlft right 

L8R A 14 timea 

LSR A I to gat 

LSR A ihlgfi 4 bite 

TAX Iput In index 

LDA HEXDIS.X Tlookup hex 

STA HEXl land save 

RTS lall done! 



(Handle 6S02 BRK interrupt 
BRKHAN 



LDA 
BNE 
PLA 
RTI 
CLD 
LDA 
BTA 
STX 
STY 
PLA 
STA 
PLA 
STA 
PLA 
SEC 
SBC 
STA 
PLA 
SBC 
STA 
STX 
T3X 
STX 
LDX 
CLI 
JMP 



EXEC 
8AVREB 



• 

EXEC 
U3ERX 
U3ERY 

USERA 



»2 
USRPCL 

•e 

USRPCH 
XHOLD 

USERS 
XHOLD 

SHOBRK 



I execut 1 ng? 
I yea! 

ino, reatora accum. 
land return froe int. 
I no decimal mode! 
Ireaet the 
lexecLiting f 1 ao 
(save X 
land y 

land accumulator 

(and Btatue rag. 

(now get program 
icounter from atack 
land Bubtract 2 
I to get BREAK 
I addreaa. 

( aave X reg. 

inoH Btore atack pntr 

I in the uaar area. 

ireatore X 

iclear interrupt 

(and Bhow break Info 



(Handle BREAK key in VBI 



NOBKEY 

IData an 

I 

I Command 

I 

CMDTXT 

CMDST 

CnDADR 



LDA 
BES 
LDA 
BNE 
LDA 
STA 
LDA 
STA 
TSX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
TXA 
CLC 
ADC 
STA 
LDA 
STA 
LOA 
STA 
JMP 



EXEC (executing? 

NOBKEY (no! 

BRKKEY (BREAK preaaad? 

NOBKEY mo! 

•»S0 ireaet BREAK 

BRKKEY ipresB flag 

#0 (and 

EXEC (execute flag 

(get atack pntr 

STACK-H.X (get Y regieter 

USERY (ana aave i£ 

STACK+2,X (get X raglatar 

USERX (ana aave it 

STACK*3,X (get accumulator 

USERA (and aave it 

STACK+4,X (get atatua reglsta 

USERP land aave It 

STACK+(5 X (get program 

USRPCL icounter 

STACK+6,X land 

USRPCH latore It! 

Imove atack pntr 
I to A add 6 to 

tt6 Iget true value 

USERS land eave It! 

• >SHaBRK (Change return 
STACK'^6,X laddreaa to 

• <SHOBRK (go to SHOBRK 
STACK+3,X (after VBLANK. 
XITVBV (all dona! 



( Blnary-to-hex converter 
( 



(Miacell 

( 

EADR 

CR 

HnSB 

6RRTXT 

BRKTXT 

BRKl 

BBRK2 

BRK3 

BRK4 

DRTXT 



text li pointera 

.BYTE "DOSDRCR<DCa» 

.BYTE 0,3.5,8,9,10,11 

.WORD aODQS 

.HORD SHORES 

■WORD CHBREB 

.WORD SHOMEM 

.WORD CHSMEM 

.WORD EXECUT 

aneoua text 

.BYTE "E!",»9B 

.BYTE »9B 

.BYTE "HBU8",»9B 

.BYTE eFD," INPUT ERROR!' 

.BYTE 32 

.BYTE 32 
.BYTE 32 
.BYTE 32 
.BYTE " 
.BYTE " A- X- Y- 



snpoa 

A8CP08 

SHOHl 

SH0M2 

8H0n3 

3H0H4 

FILLl 

3MDATA 

FILL2 
ASCII 

DDRPTR 

HEXDIB 

I 

IMiac. 

I 

USER 

USERA 

USERX 

USERY 

USERP 

USERS 

USRPCL 

USRPCH 

HEXl 

HEX2 

CMDPTR 

CEND 

CMDJMP 

ENDPTR 

EXEC 

SAVEX 

XHOLD 

YHDLD 

MYBUFF 

TMPUSR 

HDIB 

BHOLD 

ADL 

ADH 

COUNTL 

COUNTH 

84DI88 

BRK8VL 

BRK8VH 

I 



.BYTE "P- S- ",»9B 

.BYTE 0,3,6,9,12, Is, 18,21 

.BYTE 1:3579, ll, Is, Is 

.BYTE 32 

.BYTE 32 

.BYTE 32 

.BYTE 32 

.BYTE 32 

.BYTE " 

.BYTE " 

.BYTE 32 

.BYTE " 

.BYTE •9B 

.BYTE 6, 11,16.21,26 
.BYTE "01234567B9ABCDEF" 



(Z) 

c 
m 

00 



memory uaaga 

I 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

• - « + l 
»- •+! 

• - ♦+! 

*a •+! 

•> «+l 
•- •♦l 

*■ »+2 
*■ •+! 

*■ **1 

». a+l 

•- a+1 

•- •+128 

• ■ » + 5 

• - »-H 

• - ♦♦l 

• m •+! 

WB »+l 
*" »+l 

• ■ *+l 

.. a+l 
•- •+! 

• - •+! 



uaar ragiatara 
I accumulator 
I X regl ater 
(Y regiatar 
(atatua regiatar 
(atack pointer 
(program counter 1 oh 
(program counter high 
Ihex digit 1 
Ihex digit 2 
icommand pointer 
(command end index 
(command jump addr 
(end of Input pointer 
(uaar prog execute flag 
I X reg . hold area 
(another X reg hold 
lY reg hold 
llnput buffer 
I uaar reg temp atorage 
Ihex digit count 
Ibyte hold Mrm* 
laddreaa low 
laddreaa high 
Idiap mem count, 
I low and high 
14-dlglt count 
IBRK Interrupt... 
I vector aave 



ITell computer Mhare to run HBUB 



I 



•- RUNAD 
.HORD HBUa 



IThafa all, folka! 
.END 



> 

z 
> 

o 
o 

o 
o 

T) 

c 



o 




-0 

> 

o 

m 

CO 
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16K Cassette 24K Disk 



by Mark Comeau 



Your little muncher is one of the hungriest guys 
around. He'll eat cherries, pumpkins, milk cans and 
anything else he can find on the grid of girders and 
ladders. Trouble is, lunchtime is limited to only a 
few precious seconds. Can you gobble down an 
entire grid full of goodies before the clock runs out? 

You can move your muncher up or down ladders 
and across girders with a joystick plugged into port 
#1. You can even fly around to grab those hard-to- 
reach snacks by jumping off the grid and pushing the 
stick in the desired direction. Be careful, though! If 
you sail over a prize you'll have to climb back up the 
grid and jump for it again, costing valuable seconds. 

You get one point for every snack you munch. 
Some of the tidbits are so tasty, you'll have to pause 
over them for a moment before your drooling 
muncher will start to munch. Gobble up every prize 
on a grid and you'll go on to a more difficult grid; any 
time left over gets added to your score. Press the red 
fire button to exit a grid. There are eight different 



types of food and eight levels of play. If you manage 
to complete all eight levels, you'll be rewarded with 
an intermission and then get a chance to play again 
with a 10-second handicap. 

See if you're good enough to complete all eight 
levels of Munch'In Climb'In. It is possible, but 
very, very difficult! D 



Program breakdown. 

Line # Function 

40- 1 20 Init Tom Hudson's PMG routine 

130-220 Screen set-up and init 

230-330 Main movement subroutine 

340-360 Death! 

370-510 Score display 

520-880 Eight screen set-up routines 

890-1000 Intermission 

1280-1420 High score display 

1430-1740 Character set init 
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10 REH * MUNCH 'IN CLIMB 'IN 

26 REM * by Nark CoMeau 

36 REM * ANALOG COHputing ttl7 

40 GOSUB 144e:DIN P2$ CCS) , SCORE (C16) ,H 

SCORE CCie),LG$CCie): FOR T=C1 TO CIO : SC 

ORE CT3 =C6 : NEKT T 

50 DIM PI«IOg5CieO),Pe$CC8) .P1$(C8),A$C 

C2} ,6UGCC5) :HOVE=ADRCPMi<H)US) 

60 RESTORE 1648: FOR X=C1 TO 180: READ N 

:PMMOU$(X}=CHR$(N) :NEKT K 

76 FOR I=C1 TO C8:READ N :P8$ CI)=CHR$ CN 

) :NEXT I 

80 FOR 1=01 TO C8:READ N : Pl$ f I)=CHR$ CN 

) :NEXT I 

90 FOR I=C1 TO C8:READ N :P2$ fI)=CHRS CN 

) :NEXT I 

180 FOR I=C1 TO C16:READ N:LG$CI)=CHR$ 

CN) :HEXT I 

lie PI«ASE=INT ( (PEEK (145) +C3) /C4) »C4 : P 

OKE 54279 , PhBASE ; PMB=PMBASE«25e : PK>=AD 

R(P8$) 

120 POKE 559,46:P0KE 53277, C3 : ALT=ADR ( 

Pl$) :LA0=ADR(P2$) :POS=LAD:POKE 704,014 

:LG=:ADR(LG$) 

130 GRAPHICS C18:P0KE 756, PEEK (106) +C1 

:POKE 559, 46: POKE 77,C8:P0KE 710,53 

140 PRI=PRI+C1 

150 IF PRI=285 THEN PRI=197 

168 SCORE=SCORE+DOT:IF QICR=C1 THEN SC 

0RE=SC0RE+TIM:QUER=C6 

178 IF l<EN=CO THEN MEN=C4 : SCRE=C1 : STM= 

C8:PRI=196:G0T0 378 

188 COLOR 68: PLOT C4,C6:DRAUT0 C3+MEN, 

C6 

190 GOSUB 1390 

268 ON SCRE GOSUB 528,598,688,758,828, 

1810,1188,1288,898 

218 FOR U=C5 TO CO STEP -C1:F0R T=C8 T 

C3:S0UND T,255-T,14,U:NEXT T:NEXT U 

220 X=2ee:Y=96:C0L0R 32 :DOT=CO:TIM=TIM 

-STM 

230 S=STICK{CO) 

240 X=X+(S=C7 AND X<208)#C8- (S=C11 AND 

X>48)»C8:GX=(X-48)/C8:GY=(V-C16)/C8:L 
eCATE GX,GY,C:L0CATE GX,GY+C1,D 
258 IF S=C7 THEN P05=PMD 
268 IF S=C11 THEN POS=ALT 
270 IF C=99 THEN Y=Y+(S=C13 AND Y<96)» 
C8-(5=C14 AND Y>C16)»C8 : POS=LAD 
288 IF D=32 OH D=PRI THEN Y=V+C8 
298 IF COPRI THEN 318 

388 SOUND C8,188,C14,C14:S0UND C8,C8,C 
8, CO; PLOT GX,GY:D0T=D0T+C1:IF DOT=MAX 
THEN SCRE=5CRE+C1:QNER=C1:G0T0 138 
318 fl=USR(M0yE,C8,PMB,PeS,X,Y,C8) 
328 TIM=TIM-C2: POSITION Ce,C8:? ttC6;TI 
M;" ":POKE 784,C14:IF TIM=CO THEN MEN= 
MEN-C1:G0T0 348 
338 GOTO 230 

348 P=PEEK(568) : A=USR (MOUE, CO, PMB, ALT, 
X,Y,C8):F0R AM=C1 TO CIO 
358 FOR T=C8 TO C3:P0KE 53256, T :R=INT C 
RND(C81«38] :POKE 712,R:P0KE 568,P+T:S0 
UND ce,R,C8,C14:NEXT T:NEXT AM 
368 POKE 53256, C8:S0UND CO, CO, C8, C8 : GO 
TO 130 

378 DOT=CO:IF SCORE>SCORE (CIO) THEN GO 
TO 1288 
388 IF STRIG(C8)=Ce THEN SC0RE=C8 : GOTO 

130 
398 POKE 53256, C3:A=U5R (MOVE, Ce,PhB,LG 
,158,58,C16) 

488 SOUND C0,C8,C8,C8:GRAPHICS C18:P0K 
E 559,46 

418 FOR T=Ce TO C3 : SOUND T, 255-T,C14,C 
5:NEXT T 
428 ? »C6;" 
N C8,C3 
438 ? ttCer'H 
448 ? «C6,-"U 
458 ? «C6;"n 
468 ? ttC6;"C 
478 ? ttC6;"h 

488 ? «C6:? ttC6;" BY 

43^ P8SITI0H C3,Cll:? ttce ; "UMUUdLi!!!) 
[13":P0SITI0N C5,C5:? ttC6; SCORE :SCORE=C 
0:POKE 784, C14 



MUNCH 'IN CLIMB 'IN 



:pesiTio 



c 
1" 

i' 
«' 
b' 



560 POKE 710, INT (RND (Ce)»255) : POKE 789 
,INT(RND(C8)«255) :IF STRIG(CO)=CO THEN 

POKE 7e4,C0:P0KE 53256, Ce:GOTO 138 
518 GOTO 588 
528 TIM=488:MAX=69 

538 COLOR e6:PL0T C1,C9:DRAUT0 C19,C9: 
PLOT C2,C7:DRAUT0 C18,C7:DRAHT0 C15,C2 
:PLOT Ce,Cll:DRAUTO C19,C11 
540 PLOT Ce,C4:DRAHT8 C18,C1 
550 COLOR PRI:PLOT C1,C8:DRAHT0 C19,C8 
:PLOT C2,C6:DRAUT0 Cie,C6 :DRAMTO C14,C 
2:PL0T Ce,C18:DRAHT0 C18,C18 
560 PLOT CB,C3:DRAMTD C18,C8 
570 COLOR 99:PL0T C19,Ce :DRAMTO C19,C1 


588 RETURN 

590 TIM=808:P0S=ALT:MAX=79 
660 COLOR 99: PLOT C9,Ce:DRAUT0 C9,C10 
610 COLOR 66:PL0T CO, Cll :DRAMTO C19,C1 
1:PL0T C8,C1:DRAMT0 Ce,C2:PL0T C18,C6: 
DRAHTO C19,C11 

620 PLOT C1,C4:DRAWT0 C8,C4:PL0T C8,C6 
:DRAUTO Ce,Cll:PLOT Cie,Cl : DRAUTO C19, 
C1:DRAHT0 C10,C4 

630 COLOR PRI:PLOT C8,C18 :DRAMT0 C8,C1 
e:PLOT CIO, CIO: DRAUTO C19,C10:PL0T C8, 
CO ^DRAHTO CO CI 

640 PLOT Cie'c5:DRAKT0 C19,C10:PL0T CI 
,C3:DRAMT0 C8,C3:PL0T C8,C5:DRAMT0 C8, 
C18:PL0T C8,C2 

650 PLOT C10,Ce:DRAHT0 C14,C0:PL0T C19 
,C3:DRAMT0 C19,C8: DRAUTO C16,C10 
660 PLOT Cie,C3:DRAUT0 C15,C1:PL0T C8, 
C5:DRAUT0 C8,C10:PL0T C1,C6:DRAUT0 CI, 
C9 

670 RETURN 
680 TIM=558:MAX=81 

690 COLOR 99:PL0T Ce,Cl:DRAUTO C0,C18: 
PLOT C19,C0:DRAUT0 C19,Cie 
766 COLOR 6e:PL0T C0,C11 :DRAUTO C19,C1 
1:PL0T C1,C2:DRAUT0 C18,C18:PL0T C1,C4 
:DRAUT0 C14,C18:PL0T ci,ce 
710 DRAUTO Cie,Cie:PLOT C18, CI ; DRAUTO 
C6,Cl:PL0T C18,C3:DRAUT0 C8,C3:PL0T CI 
8,C5:DRAUT0 C18,C5:PL0T C18,C7 
728 DRAUTO C12,C7:C0L0R PRI:PLOT CI, CI 
:DRAUTO C18,C9:PL0T C1,C3:DRAUT0 C14,C 
9:PL0T C1,C5:DRAUT0 C10,C9 
738 PLOT C18,C6:DRAUT0 C6,ce:PL0T C18, 
C2:DRAUT0 C8,C2:PL0T C18, C4 : DRAUTO CIO 
,C4:PL0T C18,C6:DRAUT0 C12,C6 
748 RETURN 

758 TIM=1888:MAX=135:P05=ALT 
760 COLOR 99:PL0T C9,C8:DRAUT0 C9,C18 
778 COLOR 66: PLOT CO, Cll : DRAUTO C19,C1 
1:PL0T C8,C1:DRAUT0 Ce,C5:PL0T CIO, CI: 
DRAUTO C19,C5 

780 COLOR PRI:PLOT CO, CIO : DRAUTO C8,C1 
8:PLeT CIO, CIO: DRAUTO C19,C10:PL0T C8, 
CO:DRAUTO Ce,C4 
790 PLOT C10,Ce:DRAUT0 C19, C4 : H=C2 : FOR 

T=C8 TO CO STEP -CI : U=H+0 . 5 : PLOT T,W: 
DRAUTO T, CIO: NEXT T 
888 U=C2:F0R T=C18 TO C19 :H=U+8 .5 :PLOT 

T,U:DRAUTD T,C18:NEXT T 
818 RETURN 
828 TIM=45e:MAX=88 

838 COLOR 99:PL0T Ce,Cl:DRAUTO C0,C18: 
PLOT C19,C8:DRAUTD C19,Cie 
840 COLOR e6:PL0T C0,C11 :DRAUTO C19,C1 
1:PL0T C1,C2:DRAUT0 Ci8,C5:PL0T C1,C4: 
DRAUTO C18,C7 

858 PLOT C3,C2:DRAUT8 C18,C1:PL0T C3,C 
8:DRAUT0 C15,C8:PL0T C1,C6:DRAUT0 C6,C 
11 

868 COLOR PRI:PL0T CI, CIO : DRAUTO C18,C 
18:PL0T C1,C1:DRAUT0 C18,C4:PL0T C1,C3 
:DRAUTO C18,C6:PL0T Cll, CO 
878 DRAUTO C18,C8:PL0T C10,C1:PL0T C3, 
C7:DRAUT0 C15,C7:PL0T C1,C5:DRAUT0 C6, 
C18 

888 RETURN 

898 P0S=ALT:STM=STM+C28 

908 FOR T=CO TO C3:S0UND T,C8,Ce,Ce:HE 
XT T 

918 COLOR 99:PL0T C8,C6:DRAUT0 C8,C6:P 
L8T Cie,C6:DRAUT0 C18,Ce:C6L0R 66:PL0T 

C8,C5: DRAUTO C18,C5 
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928 PLOT C8,C7:DRAUT0 Cie,C7:IF X>12e 

THEN FOR H-X TO 120 STEP -C1:G0SUB 100 

0:NEXT X:G0T0 940 

930 FOR X=X TO 12e:G05UB 1000: NEXT X 

9*0 IF Y>64 THEN FOR Y=Y TO 64 STEP -C 

l:GOSUB 1000: NEXT YlGOTO 9S0 

950 FOR Y=Y TO 64:G0SUB 1000: NEXT Y 

960 FOR T=Ce TO 255: POKE 704,1: SOUND C 

0,T,C14,C14:NEXT T 

970 FOR T=255 TO CO STEP -CI: SOUND CO, 

T,C14,C14:NEXT T 

980 FOR R=C1 TO C20:S0UND C0,Cie,C13,C 

14:S0UND CO,CO,Ce,Ce:FOR U=C14 TO CI S 

TEP -CI: SOUND CO, 28-U,C2,U:NEXT U 

990 NEXT R:SCRE=Cl:POP :GOTO 130 

1000 A=USRfl<H)UE,C0,PMB,P0S,X,Y,C8] :RET 

URN 

1010 TIM=950:MftX=92 

1020 COLOR 66:PL0T C0,C1:DRAMT0 CIO, CI 

1:PL0T C0,C3:DRAMT0 C8,C11:PL0T C0,C5: 

DRAMTO C6,Cll:PL0T C0,C7 

1030 DRAi4T0 C4,C11:PL0T Ce,C9 : DRAMTO C 

2,Cll:PL0T CO,Cll:DRAMTO C19,C11:PL0T 

C18,C1:DRAHT0 C5,C5 

1040 COLOR PRI:PLOT CO,CO:DRAHTO C10,C 

10:PL0T Ce,C2:DRAHT0 C8,Cie:PL0T C0,C4 

:DRAMTO Ce,C10:PL0T C0,C6 

1050 DRAHTO C4,C10:PL0T C0.C8:DRAHT0 C 

2,C18:PL0T C0,C10:PL0T C14,C4 : DRAHTO C 

14,C10:PLOT C18,C0:DRAMT0 C5,C4 

1060 PLOT C13,C6:DRAi4T0 C13,C10:PL0T C 

12, C6: DRAMTO C12, CIO: PLOT C15,C4:DRAHT 

CIS, CIO 

1070 PLOT Cie,C3:DRAHT0 C16,C10:PL0T C 

17,C3:DRAHT0 C17,C10:PL0T C18,C3:DRAMT 

C18,C10 

1080 COLOR 99:PL0T CO,C0:DRAHTO CO, CIO 

:PLOT C19,Ce:DRAHT0 C19,C10 

1090 RETURN 

1100 TIH=8eO:HAX=107 

1110 COLOR 99:PL0T C0,C1:DRAMT0 CO, CIO 

:PLOT C19, CO: DRAMTO C19, CIO: COLOR 66 :P 

LOT C0,C11:DRAMT0 C19,C11 

1120 PLOT C1,C2:DRAHT0 C8,C3:PL0T C1,C 

4: DRAMTO C7,C5:PL0T CI, CO: DRAMTO C6,C7 

:PLOT C1,C8:DRAMT0 C5,C9 

1130 PLOT C18,Cl:DRAHT0 C10,C1:PLOT CI 

8,C2:DRAMT0 C10,C3:PLOT CIS, C4 : DRAHTO 

C11,C5:PL0T C18,Ce:DRAMT0 C12,C7 

1140 PLOT C18,C8: DRAHTO C13,C9 

1150 COLOR PRI:PLOT CI, CIO :DRAHTO C18, 

C10:PL0T Cl,Cl:DRAHTO C8,C2:PL0T C1,C3 

: DRAHTO C7,C4 

1160 PLOT C1,C5:DRAHT0 C6,C6:PL0T C1,C 

7:DRAMT0 C5,C8:PL0T C18,Ce:DRAHT0 C9,C 

0:DRAHTO C9,C10:PL0T C14,C2 

1170 DRAHTO C10,C2:PL0T C18,C3:DRAHT0 

C11,C4:PL0T C18,C5:DRAMT0 C12,C6:PL0T 

C18,C7:DRAHT0 C13,C8:PL0T C10,C5 

1180 DRAHTO Cie,C10:PL0T C8,C5:DRAHT0 

C8,C10:PL0T C11,C6:DRAHT0 C11,C10:PLOT 

C7,C6: DRAHTO C7,Cie 
1190 RETURN 

1200 P0S=ALT:TIM=700:HAX=79 
1210 COLOR 99: PLOT CO, CO: DRAHTO C0,C11 
:PLOT C19,Ce:DRAHT0 C19,C9:PL0T C9,C5: 
DRAHTO C9,C8 

1220 COLOR 66:PL0T CO, Cll : DRAHTO C19,C 
11:PL0T C1,C2:DRAHT0 C18,C5 
1230 PLOT C18,Cl:DRAHT0 C8,C1:PL0T C3, 
C8:PL0T C4,C10:PLOT C15,C7 
1240 PLOT C18,C9:DRAHT0 C1,C9:PL0T CIO 
,C5:DRAHT0 C10,C8:C0L0R PRI:PLOT CI, CI 
0:DRAHTO C19,C10:PL0T CI, CI 
1250 DRAHTO C18,C4:PL0T C18, CO : DRAHTO 
C8,C8:PL0T C3,C7:PL0T C4,C9:PL0T C15,C 
6:PL0T C9,C4:DRAHT0 C4,C9 
1260 PLOT C8,C4:DRAUT0 C3,C9:PL0T C3,C 
1:DRAUT0 C3,C8:PLDT C14,C5 :DRAHTO Cll, 
C8:PL0T C1,C2:DRAHT0 C1,C8 
1270 RETURN 

1280 POKE 7e4,C0:POKE 53256, CO :GRAPHIC 
5 C18 
1290 SETCOLOR C2, CO, CO : Q=C16 : T=65 :POKE 

752, Cl:? »C6;" NUNCH'IN CLINB ' IN " : ? 
«C6;" top ten" 

1300 POKE 559, 46: FOR H=C1 TO CIO: IF SC 
ORE>SCORECH) THEN 1320 



1310 NEXT H 

1320 FOR T=C1 TO C10:HSC0RE CT) =SCORE tT 

J :NEXT T 

1330 FOR T=H TO C9: SCORE (T+CH=HSCORE{ 

T):NEXT T : SCORE CM} =SCORE 

1340 FOR T=C1 TO C10:P0SITI0N C0,T+C1: 

? t»C6 ; SCORE (T) : NEXT T:POSITION C5,H+C1 

:? ttC6;"Y0UR SCORE" 

1350 FOR T=255 TO CO STEP -C4:F0R U=CO 

TO C3:S0UND U,T+V,C14,C14:NEXT U:NEXT 

T 
1360 FOR V=C0 TO C3:S0UND V,CO,CO,CO:N 
EXT U 

1370 IF STRIGCCO)=CO THEN 390 
1380 GOTO 1370 

1390 IF STRIGCCOJ=CO THEN RETURN 
1400 FOR T=CO TO C3:S0UND T,258-tT»C3J 

C14 C7:NEXT T 
1410' POSITION C5,C5:? »C6; SCORE: FOR T= 
Cl TO 6O0:NEXT T:POKE 53248, CO:POSITIO 
N C5 C5 

1420'? tree;" "IPOSITION C3,C6: 

? «C6;" ": RETURN 
1430 REM « INITIALIZATION 
1440 GRAPHICS 18:P0SITI0N 6,5:? «6;"ST 
AND BY" 

1450 RESTORE 1720:READ Ce,Cl,C2,C3,C4, 
C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15 
,C16,C17,C18.C19,C20 

1460 DIM KFRSC38] : RESTORE 1730:F0R X=C 
1 TO 38: READ Z : XFRS (X3 =CHRS CZJ ; NEXT X 
1470 POKE 186, PEEK C106J-C5: GRAPHICS Cl 
8 : STARTS CPEEK tl06) +C1) »256 : POKE 756 , ST 
ART/256: POKE 752, Cl 

1480 Z=USR (ADR CXFR$} ): RESTORE 1520 
1490 READ X:IF X=-C1 THEN RESTORE 1520 
:POKE 559,34:RETURH 

1500 FOR Y=C0 TO C7:READ Z:POKE K+Y+ST 
ART, Z: NEXT Y 
1510 GOTO 1490 

1520 DATA 264,0,12,18,57,124,124,124,5 
6 

1530 DATA 272,255,24,36,66,255,0,0,0 
1540 DATA 288,28,38,58,2,62,28,34,238 
1550 DATA 296,0,12,18,57,124,124,124,5 
6 

1560 DATA 304,14,17,68,126,126,126,126 
,60 

1570 DATA 312,126,66,36,66,66,66,66,12 
6 

1580 DATA 320,16,16,56,56,124,124,124, 
56 

1590 DATA 328,0,0,90,60,90,126,36,24 
1600 DATA 336,129,189,126,219,255,189, 
66,60 

1610 DATA 344,32,50,24,12,22,19,56,124 
1620 DATA 352,129,90,60,126,126,60,98, 
129 

1630 DATA 280,66,255,66,66,66,255,66,6 
6,-1 

1640 DATA 216,104,104,104,133,213,104, 
24,105,2,133,206,104,133,205,184,133,2 
04,104,133,203,104,104,133,208 
1650 DATA 104,104,133,209,104,104,24,1 
01,209,133,207,166,213,240,16,165,205, 
24,105,128,133,205,165,206,105 
1660 DATA 0,133,206,202,208,240,160,8, 
162,8,196,289,144,19,196,287,176,15,13 
2,212,138,168,177,203,164 
1670 DATA 212,145,205,232,169,0,240,4, 
169,0,145,205,200,192,128,208,224,166, 
213,165,208,157,0,208,96 
1680 DATA 56,100,92,64,124,56,68,119 
1690 DATA 28,38,58,2,62,28,34,238 
1700 DATA 24,60,60,68,24,36,102,0 
1710 DATA 28,28,38,38,58,58,2,2,62,62, 
28,28,34,34,238,238 

1720 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,14,15,16,17,18,19,20 
1730 DATA 104,169,0,133,203,133,205,16 
9,224,133,206,165,106,24,105,1,133,204 
,160 

1740 DATA 0,177,205,145,203,200,208,24 
9,238,284,230,206,165,206,201,228,208, 
237,96 
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CHECKSUM DATA 
(See p. 30) 

10 DfiTfl 593,823,296,246,947,178,217,22 

0,223,61,788,285,974,959,573,7295 

168 DflTft 326,531,555,835,258,723,867,1 

94, 213, 387, 665, 518, 215, 25, 321, 6633 

318 DJiTfl 555,797,787,887,464,398,847,5 

66,168,46,239,580,996,16,9,7899 

468 DftTft 5,2,768,129,318,702,468,395,9 

42,124,943,125,613,588,139,6253 

618 DATA 625,854,985,769,141,97,612,49 

7,480,967,541,245,363,685,41,7742 

768 DATA 159,451,928,98,113,598,481,46 

6,346,44,128,272,619,289,458,5442 

918 DATA 522,832,732,576,675,60,471,61 

8,318,685,719,738,97,782,527,8272 

1060 DATA 801,821,46,788,547,532,766,6 

30,892,191,188,748,32,791,700,8473 

1210 DATA 244,155,187,124,828,26,792,5 

08,681,525,536,418,354,970,175,6515 

1360 DATA 717,465,730,300,562,409,564, 

677,866,636,536,443,726,648,724,9003 

1510 DATA 734,225,971,219,235,321,362, 

475,953,856,982,350,613,875,962,9133 

1660 DATA 231,418,983,711,636,14,415,1 

47,639,4186 



RENT JK BUY 
ATARI 



EXCITEMENT 



INDUS 
DISK DRIVES 
$349/$60Mo. 



400/800/810 

Heavy Duly Dust 

Covers ■ $3.49 



NEW& EXCITING 

Ultima (D) $49 

Asylum (D) $29 

Pogo Joe (D) $29 

Danger Ranger (D) $29 

Dunzhin (C/D) $27 

Kaiv(C/D) $27 

Wyldc (C/D) $27 

Heracles (C/D) $33 

Beneath Apple Manor (C/D). $30 



SPECIALS 

EPYX 

Armor Assault (D) 
Crypt of Undead (D) 
King Arthurs Heir (D) 
Nightmare (D) 
Temple of Apshai (D) 
DATASOFT 
Graphic Master (D) 
Micro Painter (D) 
Shooting Arcade (C/D) 
Canyon Climber (C/D) 
SYNAPSE 
Shamus (C/D) 
Protector II (C/D) 
Nautilus (C/D) 
Dodge Racer (C/D) 

100's more as low as 



Sell Rent 



$14 
$ 9 
$ 9 
$12 
$16 

$15 
$15 
$12 
$12 



$5 
$5 
$5 
$5 
$5 

$5 
$5 
$5 
$5 



$12 $5 
$1 1 $5 
$11 $5 
$ 9 $5 
$3.49 



Call toll-free outside Texas: 1—800—433-2938 
— Inside Texas call: 81 7-292-7396 

WEDGWOOD RENTAL 

5316 Woodway Drive 
Fort Worth, Texas 76133 
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Double Byte 



Why pay more for double-sided disks when you 
can use both sides of a single-sided disk. How? 
With OVERBYTE! 

OVERBYTE is a self-aligning, heavy duty metal hold 
punch which doubles the capacity of a normal single- 
sided disk. 

OVERBYTE punches a write-protect notch on the left 
side of a single-sided disk allowing the reverse side 
to be used. 

OVERBYTE can be used with Apple, Rana, Franklin, 
Atari, Commodore, and Victor 9000 disk drives 
(and other compatible drives). 



Disks are expensive. 
Double your memory 
at half the cost! 



OVERBYTE 
ONLY $19.95 




Send To: 




OVERBYTE) 



8621 Laurel Canyon Blvd. 

Sun Valley, CA 91352 

(213) 504-0309 

Please rush me OVERBYTE for $1 9.95 

Please include $3.00 for shipping & handling (California 
residents add 6y2% sales tax.) 

NAME 
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ADDRESS 


CITY STATE 
PHONE ( ) 


71 P 


D MASTERCARD D VISA 
D MONEY ORDER 


D CHECK 


CREDIT CARD NUMBER 


EXPIRATION DATE 


Slt^NATURE (for r^harge narri.<;) 



JILATAPI s Printers/Etc. 

^■^#ml#ml%l GEMINI 10X .. $279 PROWRITER . 3 



600XL CALL 



GEMINI10X 
GORILLA . 



$279 
$199 



1200XL 



1050 DRIVE $335 

1025 POINTER J399 

1020 COLOR PTR ... $219 

1027 PRINTER $279 

1010 RECORDER $72 

MICRO PERIF. MODEM/INFC 

DRIVES 

ASTRA 1620 $469 

RANA1000 $295 

PERCOM 88-S1 $298 

PERCOM40-S1 $418 

PERCOM 40-S2 $718 

PERCOM 44-S1 $510 

PERCOM 44-S2 $929 



CALL* 

'Rellects $100 Atari Rebate 
MICRORITS INFC .... $78 
80 COLUMN BD .... $249 
TECHNICAL NOTES... $25 

REAL TIME CLK $38 

AXIOM PRINTER INFC $80 

$129 

MEMORIES 
48K RAM (INTEC) .... $95 
64K RAM (INTEC) ... $119 
48K RAM (MOSAIC) . . $109 
64K RAM (MOSAIC) . . $145 
128K RAM DISK .... $299 
32K RAM (MOSAIC) ... $68 



ATARI SOFTWARE 



ADVENTURE INT'L 

Adv. 1-12 each (C) $18 

Preppie (C/D) $20 

Preppie II (C/D) $23 

Diskey (D) $33 

Sea Dragon (C/D) $23 

Bug Off! (C;D) $20 

Tutti-Frutti (C/D) $17 

Saga 1-3 {ea.)(D) $27 

Lunar Lndr . (C)$11(D)$15 
Galactic Empire (C) ..$14 
Galactic Trader (0) . . . $14 

Stratos (C/D) $23 

RearGuard (C)$14(D)$17 

APX 

Eastern Front (C/D) . . $23 

747 Land Sim. (C/D) . . $17 

Fig-Fortti(C) $30 

Family Cash Flow (D) . $17 

Downhill (C/D) $17 

Avalanche (C/D) $17 

Outlaw/Howitzer (C/D) $17 
Salmon Run (C/D) .... $17 
Data Management (D) $17 
Galahad/Holy Grail (D) $21 
Adv. Music System (D) $21 
ATARI INC. 

Microsoft Basic II (R) .$62 
Mickey in Great 

Outdoors (C/D) .... $36 

Paint (D) $30 

Speed Reading (C) ...$54 

Qix (R) $30 

Dig Dug (R) $30 

Atari Writer (R) $68 

Time Wise (D) $23 

Visicalc(D) $139 

Juggles House (C/D) .$22 
Juggles Rnbw(C/D) . . $22 

Pilot (Home) (R) $55 

Galaxlan (R) $30 

Defender (R) $30 

ET $34 

Microsoft Basic (D) . . $62 
Macro Ass. & Edit (D) . $62 
Assembler Editor (R) .$42 
Basic Cartridge (R) . . . $45 

Pao Man (R) $30 

Centipede (R) $30 

Caverns of Mars (D) . . $28 

Star Raiders (R) $30 

Conv. Lang. Ea. (C) ... $42 
Music Composer (R) ,. $31 
Super Breakout (R) ... $26 
My First Alphabet (D) . $26 
Prog.2 & E (ea.){C) .... $21 
Word Processor (D) .$102 

Pilot (Educ.) (R) $92 

Touch Typing(C) ....$19 
Home File Mngr(D) . . $36 

Bookkeeper (D) $102 

Family Finance (D) . . . $35 

Prog. 1 (C) $18 

Scram (C) $18 

Asteroids (R) $27 

Space Invaders (R) ...$27 
Missile Command (R) . $27 

Telelink(R) $21 

Superman III (R) $34 

Basketball (R) $24 

Donkey Kong (R) $34 

AVALON HILL 

VC(D) $17 

B-1 Nuc. Bomber (C) . . $12 

Legionnaire (C) $23 

Empire of Overmind 

(D) $23 (C) $20 

Tanktics . . . (D)$20(C}$17 
Comptr Stock & Bonds ... 

(D)$17(C)$14 

Dnieper River Line (D) $20 

Voyager(D) $17 

Controller (D) $20 

GFS Sorceress 

(D) $23 (C) $20 

Telegard . . (D)$19(C)$16 

Vorrak(D) $18 

Lord of Karma (C) $14 



AVALON HILL(Confd) 

Moon Patrol (C) $17 

Planet Miners (C) $12 

Conflict 2500(C) $12 

Space Station Zulu 

(D)$17(C)$14 

Flying Ace . (D)$21(C)$18 

Gypsy (D)$18 C)$15 

Galaxy (D)$17(C)$14 

Guns of Fort Def. (C) . $14 

NukeWar(C) $12 

Andromeda Conquest ... 

(D)$16(C)$13 

Close Assit (D) $23 (C) $20 
BRODERBUND 

Sky Blazer (D) $22 

Bank St. Writer (D) ... $46 

A.E. (D) $23 

Arcade Machine (D) . . $39 
Choplifter . (D)$23(R)$29 

Labyrinth (C/D) $20 

Serpentine . (D)$23(R)$27 
Steller Shuttle (C/D) . . $17 

Apple Panic (C/D) $20 

Genetic Drift (C/D) ... $20 
David's Midnight (D) .. $23 

Sea Fox (D) $20 

Track Attack (D) $20 

Operatn Whrlwnd (D) . $23 
Match Boxes (C/D) . . ■. $20 
CDY CONSULTING 

Pogoman (C/D) $27 

Mad-Netter(C/D) $23 

it-is-Bailoon (C/D) .... $23 

CBS 

Mountain King (R) ...$27 

Boulders & Bombs (R) $27 

Krazy(each)(R) $27 

CONTINENTAL SOFT. 
Home Accountant (D) $48 
Tax Advantage (D) ... $39 
DATA MOST 

Pig Pen (D) $20 

Mating Zone (D) $20 

Roundabout (D) $20 

Bilestoad (D) $20 

Night Raiders (D) $20 

Monster Smash (D) ... $20 
DATASOFT 

Text Wizard (D) $65 

Graphic Master (D) ... $27 

Micro Painter (D) $23 

Lisp Interpreter (D) . . . $79 

Graphics Gen.(D) $17 

Basic Compiler (D) ...$65 

Zaxxon (C/D) $27 

Teletalk (D) $34 

Pac. Coast Hwy (C/D) . $20 
Clowns/Balloons (C/D) $20 

Spell Wizard (D) $53 

Canyon Climber (C/D) $20 
Sands of Egypt (D) ... $27 
O'RIIey's Mine (C/D) . . $23 
Rosen's Brigade (C/D) $23 

Moon Shuttle (D) $27 

DON'T ASK 

Sam (D) $39 

P.M. Animator (D) $23 

Teletari (D) $27 

Poker Sam (D) $17 

Word Race . (D)$17(C)$14 
EDU-WARE 

Prisoner 11(D) $27 

Spelling Bee{D) $27 

Rendevous (D) $27 

Compu/Read 

(D)$21(C)$15 

Compu/Math-FR 

(D) $27 (C) $21 

Compu/Math-Dec 

(D) $27 (C) $21 

EDUCATIONAL SOFT. 
Tricky Tutorial 

1,2,3 or 4 (C/D) $15 

Tricky Tutorial 

5,6or7(C/D) $22 



CITOH 

Prowriter $345 

Prowriter II $629 

Starwriter $1149 

Printmaster $1448 

NEC 

8023 AC $409 

3510 $1375 

3530 $1579 

3550 $1779 

7710/7730 $1998 



PROWRITER . $345 
SMITH TPI ... $488 

SILVER REED P .... $669 
QUME 11/40+ ....$1299 
OKI-DATA 

Microllne82A 

Microline83A _i 

Microllne84P ^ 

Microline92 o 

Microline93 

DIABLO 

620R $939 

630R $1719 



*flSTfifl 1620 

DISK DRIVE SYSTEM 

MORE FOR YOUR MONEY 

DOUBLE OR SINGLE DENSITY 

TWO DRIVES 

SPECIAL $469 




MONITORS 



AMDEK 

Color I $289 

V300 $139 

V300A $149 

Color II $449 



NEC 

GRN(JB1260) $115 

GRN(JB1201) $155 

Color Composite . . . $298 
RGB Color $598 



MODEMS 



HAYES 

Smartmodem $209 

Smartmodem 1200 . , $498 
Micromodem II $259 



NOVATION 

J-Cat $99 

Apple Cat II $259 

D-Cat $149 

ANCHOR AUTOMATION 

Mark I or II Modem . . . $78 




SPECIALS 

Gemini 15X Printer $399 

Axiom AT-100 Printer (with interface $229 

Astra Double Density Dual Drive $469 

Rana 1000 Drive $319 

Bit-3 80 Column Board $245 

Mannesmann Talley 160L Printer $589 

Atari 400 Keyboard (In Home) $35 

Programmer Kit . . $48 Entertainer Kit . . . $64 
Wico Joystick ... $23 WicoTracl^ball ... $49 

COSMIC 
COMPUTERS 

UNLIMITED 

727 BREA CANYON RD., SUITE 16 
WALNUT, CA 91789 

ORDER LINES OPEN MON-SAT 8 am - 8 pm 

(800) 626-7642 

PLEASE FOR ORDERS ONLY 
SORRY, NO COD'S 

(714) 594-5204 

FOR TECHNICAL INFO, ORDER INQUIRIES, 
OR FOR CALIFORNIA ORDERS 

Add $250 shipping per software order in continental U.S. Add $5.00 
shipping per software order lor AK, HI, FPO-APO. Add $10.00 or 15% 
(whichever is greater) per software order for non-U. S. Call for cost ol 
hardware shipping. Calif, residents add 6Vi% sales lax. Cashiers 
checks or money orders filled within 24 hours for Hems in stock. 
Personal checks require 4 weeks to clear, MasterCard and Visa OK for 
software only within conlinenlal U,S,, add 3% surcharge. Include card 
no,, expiration date and signature. Due to our low prices, all sales are 
linal. All detective returns must have a return authorization number. 
Please call to obtain one before returning goods lor replacement or 
repair. Prices & availability subject to change. 
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EPYX-AUTO. SIMUUTION 

Rescue at Rigel (C/D) . $20 
Datestones/Ryn (C/D) $14 
Upr Rctis Apshai (C/D) $14 

Ricochet (C/D) $14 

Keys/Actieron (C/D) ..$14 

Curse of Ra (C/D) $14 

Danger/Drindisti (C/D) $14 

Jumpman(C/D) $27 

Escp Vulcans Isle(D) .$20 
Crypt of Undead (D) . . $20 

Nlgfitmare(D) $20 

Armor Assault (D) .... $27 

Monster Maze (R) $27 

Alien Garden (R) $27 

Plattermarna(R) $27 

Morloc's Tower (C) ...$14 
King Arttiur's Heir 

(D)$20(C)$14 

Hei Hire Vifarrior (C/D) . $27 
Invasion Orion (C/D) . . $17 
Temple of Aps. (C/D) . $27 

Star Warrior (C/D) $27 

Dragon's Eye(D) $20 

Crusti Crumble (C/D) .$20 
GEBELLI 

Firebird (R) $27 

Embargo (R) $30 

Candy Factory (D) $20 

Match Racers (C/D) . . $20 

Dr. Goodcode (D) $20 

HAYDEN 

Go (D) $23 (C) $20 

Sargonll .. (D)$23(C)$20 
Bulldog Pinball{C) ... $20 
HES 

Coco (C/D) $34 

Coco II (C/D) $27 

INFOCOM 

Suspended (D) $34 

Zorkl,llorlll(D) $27 

Slarcross(D) $27 

Deadline (D) $34 

Witness (D) $34 

INHOME 

Baseball . . (R) $23 (D) $23 

Crypts of Terror 

(D) $23 (C) $20 

INNOVATIVE DESIGN 

Pool 1.5(D) $23 

Juggler(D) $20 

Speedway Blast 

(D) $20 (R) $27 

Pool 400 (R) $27 

JV SOFTWARE 

Jrny to Pints (C/D) $20 

Action Quest (C/D) ... $20 

Ghost Encount. (C/D) . $20 

LJK 

Letter Perfect (D) . .. $104 

Data Perfect (D) $74 

Letter Perfect (R) . . . $137 

Edit 6502 (R) $137 

MONARCH DATA SYS. 

ABCCompiler(D) $48 

ODESTA 

Chess (D) $45 

Checkers (D) $34 

Odin(D) $34 

OPTIMIZED SYSTEMS 

C-65 (D) $58 

Bug-65 (D) $23 

Max-65(D) $58 

Basic A + (D) $58 

Action (D) $65 

Speed Read Plus (D) . . $40 

PHOENIX 

Birth of Phoenix (D) .. $16 

Adv. In Time (D) $20 

QUALITY 

Fastgammon(C) $14 

Name That Song 

(D)$13(C)$11 

Starbase Hyperion 

(D)$17(C)$14 

AliBaba/40Thvs(D) .. $20 
Jeeper Creepers (D) ..$20 
ROKLAN 

Gorf (D) $27 (R) $30 

Wizard/Wor . (D)$27 (R)$30 
DIx Invaders (D)$23 (R)$27 
AntlSubPtrl (D)$20(C)$14 

Telecom (D) $49 

Space Journey (R) . . . $30 
SENTIENT 

Gold Rush (D) $23 

Cyborg (D) $23 

SIERRA ON-LINE 
Mission Asteroids (D) $17 
Ulys.&Gldn Fleece (D) $27 
Crossfire . . (D)$20(R)$23 

Mouseattack(D) $23 

Jawbreaker (D)$20(R)$23 

Threshold (D) $27 

Softporn (D) $20 

Ultima 11(b) $39 



SIERRA ON-LINE 

Marauder (D) $23 

Lunar Leeper (D) $20 

Wiz& Princess (D) ... $22 

Frogger(C/D) $23 

SIRIUS 

Alpha Shield (R) $27 

Wavy Navy (D) $23 

Bandits (D) $23 

Space Eggs (D) $20 

Sneakers (D) $20 

Way Out (0) $27 

Type Attack (D) $27 

Repton (D) $27 

Critical Mass (D) $27 

Fast Eddy (R) $23 

Worm War (R) $23 

SPINNAKER 

Snooper Troop 1,2 (D) . $30 

KIndercomp (D) $20 

Rhymes & Riddles (D) $20 
Hey Diddle Diddle (D) . $20 
Srch AmzngThngs{D) $27 

Story Machine (D) $23 

Face Maker (D) $23 

STRATEGIC SIM. 
Cosmic Balance (D) ..$27 
Cosmic Balance 11(D) $27 
Tigers In Snow (C/D) .. $27 
Battle of Shiloh (C/D) . $27 
Battle of Norm. (C/D) . $27 
Cytron Masters (D) ... $27 
Knights/Desert (C/D) . $27 
Combat Leader (C/D) .$27 
SUBLOGIC 

Pinball (C/D) $20 

SWIFTY 

J. White Music Lessons 

(C/D) $20 

Space Shuttle (D) $20 

SYNAPSE SOFTWARE 

File Mngr BOO -f. $65 

Protector II (D)$23(R)$29 
Shamus . . . (D) $23 (R) $29 
Fort Apocalypse (C/D) $23 

Shamus II (C/D) $23 

Necromancer (C/D) . . . $23 
Pharoh's Curse (C/D) . $23 

Slime (C/D) $23 

Page6(D) $23 

Reptilian (C/D) $23 

Picnic Paranoia (C/D) .$23 
Claim Jumper (C/D) . . $23 

Drelbs (C/D) $23 

Shadow World (C/D) . . $23 

Survivor (C/D) $23 

T.N.T. (C/D) $23 

N.Y.C. (C/D) $23 

Slamball (C/D) $23 

Blue Max (C/D) $23 

Nautilus (C/D) $23 

Chicken (R/D) $23 

Quasimodo (C/D) .... $23 

River Quest (C/D) $23 

SYNERGISTIC 
ProgramrWkshp(D) .. $23 
Graph Workshop (D) . . $27 
Disk Workshop (D) ... $23 
Worlock's Revenge (D) $23 
THORN EMI 

Soccer (R) $34 

Jumbo Jet (R) $34 

Submarine Comm. (R) $34 

Kick Back (R) $34 

Pool (C) $22 

HumptyDumpty(C) ..$22 
Hckry Dckry Dck (C) .. $22 

Darts (P) $22 

USA 

Atari World (D) $39 

3-DSprgrphcs(C/D) . . $27 

Survival Adv. (C/D) ... $17 

VERSA 

Mind Bggirs I (D)$14 (C)$12 

Globe Master (D) $20 

MISCELLANEOUS 
Financial Wizard (D) . . $41 
Castle Woifenstein(D) $20 

Master Type (D) $27 

Astro Cha, 'D) $22 

Miner 2049e. ^) $34 

Cypher Bowel (C) $33 

Bug Attack (C/D) $20 

Raster Blaster (D) $20 

Air Strike (C/D) $27 

Prism (D) $18 

Megalegs (C) $23 

Cap'n Cosmo (D) $19 

Spy's Demise (D) $14 

Galac. Chase (D)$20 (C)$18 

Kid Grid (C/D) $20 

Battle Trek (D) $20 

Snapper (D) $19 

T&F-PMP Property 

Management (D) .. $149 
Millionaire (D) $39 
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THE RETURN OF HERACLES 
by Stuart Smith 
QUALITY SOFTWARE 
6660 Reseda Blvd., Suite 105 
Reseda, CA 91335 
48K Disk $32.95 



by Michael Des Chenes 



I have never been interested in adventures. If you 
were to ask me what my favorite adventure is, I 
would have to say Ali Baba from QuaUty Software. I 
heard rumors that Stuart Smith, author of Ali Baba, 
was working on a similar adventure with more fea- 
tures. I didn't hear anything from Quality Software 
for over a year, so I figured that I would never see 
their next adventure. Without warning, a package 
arrived at the ANALOG offices from Quality Soft- 
ware, The Return of Heracles. Finally, an adven- 
ture that even I could get excited about! 




The Return of Heracles. 

Heracles is a one to four player graphics adven- 
ture using only the joysticks for control. The game is 
an exploration of Greek mythology. Each human 
player takes on the role of up to four of the over 
twenty available heroes, heroines, or creatures. You 
move about in the world of mythic Greece, earning 
fame and fortune, sharpening your abilities, fighting 
strange beasts, and trying to complete the twelve 
tasks given to you by Zeus, powerful Father of the 
Heavens. 

Many of the players may work together, taking 
turns. If your player is killed you may add any of the 
other available players at any point in the game. 
There is a total of 247 characters in the game. Each 
character has its own personality, shown in a character 
table in the instruction book. Strength, vigor, dexter- 
ity, speed, target size, armor, melee and hand-to-hand 
combat ratings are different for each character. For 



example, an Adder has the strength of 7 and the 
speed of 2, but a Boar has the same strength but a 
higher speed of 10. Choose your characters wisely 
and you'll live longer. 

Your character can become stronger and more 
agile during the game by collecting money, finding a 
trading outpost and purchasing weapons, poisons 
and training. But don't get to greedy! The more 
money you carry around with you, the slower your 
player moves because of the added weight. 

With such a larger number of characters to choose 
from, you'll never get bored playing the game over 
and over. I find the game to be more enjoyable than 
most adventures because of the ability to play with or 
against another human player. Zeus tells you how 
well you're doing each time you complete one of his 
tasks. Each task is worth a certain number of points. 
Finishing all twelve tasks gives you an additional 
bonus and completes the game. 

Even if adventures bore you, I think you'll find 
The Return Of Heracles an entertaining game. If 
you're already hooked on adventures, I think vou'll 
like this new twist in adventure gaming. The graphics, 
sound, playability and the amount of research into 
Greek mythology that went into this game are top 
notch. D 




L^co Computer Marketing & Consultants 

TOLL FREE 800-233-8760 



TO ORDER 

CALL us 



In PA 1 717-327-1824 



PRINTER PRINTER PAPER 

INTERFACING AVAILABLE 

lAvallabl* tor IBM PC, Apple, Atari, Vic 20 S Vic 64 



SAVE- PRINTERS 



EPSON 



OKI DATA 



LETTER QUALITY 

SMITH C0R0NATP2. . .$449.00 

DIABLO 630 . .$1 71 9.00 

ALPAHCOM 42 $89.00 

ALPHACOM 81 $129.00 

NEC 8023 $369.00 

NEC 8025 $699.00 

NEC PC-8200 
COMPUTER SCALL 



RX-80 $SAVE$ 

RX-80FT ON 

FX-80 In-Stock 

FX-100 EPSON 

MX-BOFT PRINTERS 

MX-100 $$CALL$$ 

MANNESMANN 
TALLY 

SPIRIT 80 SCALL 

MT 160L SCALL 



80 SSAVES 

82A CALL for 

83A LOWEST 

84 PRICES 

92 on thasa 

93 In-Stock 

PACEMARK 2350. . . PRINTERS 

ATARI 850 

REPLACEMENTS 

IN-STOCK 



CITOH 

GORILLA GX100 $179.00 

PR0WRITER8510 ...$339.00 

PROWRITERII $659.00 

8600 $1025.00 

STARWRITER $1 099.00 

PRINTMASTER $1499.00 

STAR MICRONTICS 

GEMINI 10X $289.00 

GEMINI 15X $CALL 

DELTA 10 $479.00 



MODEMS 



ANCHOR MARK 

ANCHOR MARK I 

HAYES SMART ,. 
I HAYES MICRO II 
Micro Bit 

/IPP-1000 

NOVATION 
I CAT 

D-CAT 

J-CAT 

APPLE CAT M . . 

212 APPLE CAT 



S79.00 

I. S79.00 

,5239.00 

S309 00 

$129.75 

SI 44.00 
SI 55.00 
S1 15.00 
$279.00 
$589.00 



MONITORS 

Sakata Color $229.00 

Amdek Color I $275.00 

Amdek 300 Green $149.00 

Amdek 300 Amber $149.00 

Gorilla Green $99.00 



PARKER BROTHERS 

Tutankham R $33.75 

Super Cobra R S33.75 

Astro Chaae R $33.75 

Froggar R S33.7S 

OBart R $33.75 

Popeya R $33.75 

Rl*k R $42.75 

ChesaR $42.75 

SPINNAKER 

Story Machine R $26.75 

Face Maker R $24.75 

KIndarocnp R $20. 75 

Fraction Fever R $24.75 

Delta Drawing R $26. 7S 



SSI 

Battle ol Stillo C/D $26.75 

Tigers In the Snow C/D $26.75 

Battle tor Normandy C/D .. $26.75 
Knights of the Desert C/D . $26.75 
Cosmic Balance C/D $26.75 

ON-LINE 

Frogger $24.95 

Wizard A Prin $26.95 

ROKLAN 

Wizard of War $29.75 

Gorf $29.75 

Delux Invader $27.95 

BIGS 
Miner 2049 



,$32.75 



APX 3R Math $19.95 

Typo Attack $24.95 

Family Budget $19.95 

F. Cash Flow $19.95 

EASTERN HOUSE 
Monkey Wrench 2 $52.75 



BRODERBUND 

Bank Street Writer D $49.75 

AE D $24.75 

Apple Panic $23.75 

Chopllfter ROM $32.75 

David's Midnight $24.75 

Stellar Shuttle C/D $1 8,75 

Ft. Apocalypse $24.75 

SYNAPSE 

BLUE MAX C/D $24.75 

Ft. APOCALYPSE C/D. . . $24.75 
PHAHOAHS CURSE C/D . . . $24. 75 

DUST COVERS 

800 $3.99 

400 $3.99 

1200 $3.99 

410 $3.99 

810 $3.99 

1050 S5.99 

PROWRITER $5.99 

GEMINI 10X S5.99 

PERCOM DISK $5.99 

ALIEN GROUP 
Voice Box 2 . $99.75 



EPYX 
GATEWAY TO 

ASPHI R (28.75 

JUMPMAN JR R $28.73 

PITSTOPR $28.75 

GATEWAY TO 

ATARI 

Computers for people; 
o 

600X1 SCALL 

800XL for 

1400XL... Lowest 
1450 Prices 

1020 PRINTER NOW 

1025 PRINTER |N 

1027 PRINTER STOCK 

1 050 DISK DRIVE ... . SSAVES 
1010 RECORDER $74,75 



DON'T ASK 

Sam $41.75 

Abuse $15.95 

Teloatrl $27.95 

Poker Sam ..$24.95 



PACMAN 

DONKEY KONG 

DIG DUG 

DEFENDER.... 
CENTIPEDE ... 



S29.75 
$29.75 
$29.75 
$29.75 
$29.75 



DEADLINE 

ENCHANTER 

INFIDEL 

PLANETFALL 

STAR CROSS 

SUSPENDED 

WITNESS 

ZORKI 



.S34.75 

.$34.75 

.$34.75 

.$34.75 

.$34.75 

.$34.75 

..834.75 

..$34.75 

..$34.75 



BLANK DISKETTES 
ELEPHANT 

single side SD (10) »17.7S 

Single Side DD(10) $21.75 

Double Side DD (1 0) $26.75 

MAXELL 

WDIdO) »28.7S 

MDIMIO) $38.75 

CERTRON CASSETTES 

CC-10 12 for $19.09 

CC- 20 1 2 for $1 7. 99 

INNOVATIVE CONCEPTS 

Olak Storage (holds 10)....«4.S9 
Disk Storage (holds 15).... $9. 95 
Disk Storage (holds SO).... $26. 05 



TRAK DISK DRIVES 

AT.D1 $37^00 

AT-D2 $399.00 

PRINTER CABLE $22.95 

Software for ATD-2 .... $22.95 



RANA 
DISK DRIVE 



COMPUTER CARE 

BIB 

5'/. DISK DRIVE 

CLEANER $12.75 

COMPUTER CARE 

KIT $19.75 



HARD DISK 
DRIVES for 

APPLE IBM-PC 

5MEG $1349.00 

10MEG ...$1599.00 
15MEG ...$1999.00 
20MEG ...$2359.00 




■Add S 111 n(i 



IRS H(l 1). 



TEXAS 
INSTRUMENT 

Disk Drive... $245. OO 



FOR ATARI 
COMPUTERS 

AT88S1 ....$329.00 
AT88S2 ....$535.00 
AT**S1PD...$439.00 
RFD40S1... $399.00 
RFD40S2... $675.00 
RFD44S1... $449.00 
AT88 doubler 



QQ TO ORDER 

CALL TOLL FREE or send ordar to 

800-233-8760 ^TsTslT 

iCustomer Service 1-717-327-1825 Jersey Shore PA 1774C 



POLICY 

In-stock items shipped within 24 hours of order. Personal 
checks require four weeks clearance before shipping. No 
deposit on CO. D. orders. Free shipping on prepaid cash orders 
within the continental U.S. PA residents add sates tax. AM 
products subject to availability and price change. Advertised 
prices show 4'Hi discount offered for cash, add 4% for Master 
Card or Visa, DEALER INQUIRIES INVITED. 
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Introduction 



to 



Action! 

Part 2. 



by Clinton Parker 



Part I of this series presented a brief introduction 
of Action! data types and control structures using a 
small example program. In this part, I will expand on 
that example to demonstrate the use of ARRAYs in 
the Action! language, and increase the speed at which 
it runs. 

This increase in speed is accomplished by provid- 
ing a specialized PLOT routine instead of using the 
one provided in the cartridge library. The PLOT 
routine in the cartridge (the same one used by the 
OS) was written to be very flexible so that it could 
handle all the different graphics modes and check for 
illegal values. The problem with this generality is that 
it doesn't plot points on the screen all that fast. Since 
all the points plotted in KAL are in graphics mode 
24, it seems reasonable to write a PLOT routine just 
for that mode. 

All right, we now see that having our own PLOT 
routine would be useful, but how do we go about 
writing one? First, we'll start by looking at how the 
Atari represents graphics mode 24 data by means of 
a simple example. Imagine a small piece of graph 
paper 24 by 12. Label the top left square 0,0 and the 
bottom right square 23,11. Draw a line from top to 
bottom between squares 7 &. 8 and 15 Sl 16, and 
then number these divisions starting with 0,1,2 for 
the first line; 3,4,5 for the next line (1) and ending 
with 33,34,35 for the last line (11). What you should 
have is Figure 1. Except for the screen being much 
larger, this is exactly how the Atari generates a gra- 
phic 24 display. Each 8 square division on the graph 
paper represents an 8-bit byte of memory. 
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Figure 1. 

If we plot point 10,10 on our sheet of graph paper, 
we note that it is in division 31 and is the 2nd square 
of that division (first square of a division is 0). The 
computer does a similar calculaton when we tell it to 
plot point 10,10. It first determines which byte of the 
screen memory we want and then it determines 
which bit in that byte is to be set. 

Now this isn't as hard as it looks, because there are 
several tricks that can be used to make these calcula- 
tions simple. We can calculate the offset of the first 
division (byte) of each line by . multiplying the 
number of divisions (3 for our example, 40 for a 
graphics 24 display) by the line number. We can then 
calculate which division (byte) we want on that line 
by dividing the column by 8 (8 spaces per section, 8 
bits per byte). Finally, we can compute which square 
(bit) is to be changed by the remainder of this 
division. Thus, for 10,10 example we have: 
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line offset = 30 (10*3) 
division offset = 1 (10/8) 
square offset = 2 (10 MOD 8) 

We now have enough information to design our 
PLOT routine. Remember that we are writing our 
own routine to increase the speed of plotting points. 
MultipUcation and division are slow operations, so if 
we avoid doing these operations when we are plot- 
ting, it will greatly increase the speed of our plot 
routine. As turns out, we can avoid doing these 
operations by precomputing the line offsets and byte 
offsets at the beginning of the program and then use 
those offsets in our plot routine. We do this by 
storing the precomputed offsets in ARRAYs. In the 
plot routine, we'll use Y as an index into the line 
offset ARRAY (line) and X as an index into the byte 
offset ARRAY (div8). 

Walking through. 

The PROCedure Init() is responsible for gener- 
ating the precomputed line and byte offsets. It starts by 
setting up the display with: 



Graphics (24) 
5etColor(l,8,14J 



SetColor(2,«,eJ 



The next block of code computes the line offsets 
(192 of them for graphics mode 24). The variable 
scrstart is defined to be location 88. This location 
contains the starting address of the screen. The vari- 
able lineloc is used for computing the address of 
each line. Initially it is set to the value of scrstart 
(address of first line), and is incremented by 40 each 
time through the loop (remember, there are 40 byte 
per line in graphics mode 24) to compute the address 
of the next line. The ARRAY line is used to store 
each value of lineloc. The next loop computes the 
byte offsets for all possible values of X (0 to 319), 
and saves them in the ARRAY div8. 

PROC Plot() is passed two arguments, X and Y, 
which define the point to be plotted. The byte that is 
to be modified on the screen is computed by adding 
the line address of Y to the byte offset of X as 
follows: 

pos = line(Y) + div8(X) 

The BYTE POINTER pos now contains the 
address of the byte we want to modify. Next, we 
determine if we are plotting a point or erasing one by: 

IF color e THEM 

If color is non-zero, we want to plot a point. This is 
done by setting the correct bit of the byte pointed to 
by pos. This is what 

pOS^ == X I«1CX*7I 

does. This may look very complicated, but it isn't. 
X&.7 computes which bit is to be modified (same as 



X MOD 8, but much faster). This is used as the index 
for the ARRAY ml. ARRAY ml is declared to 
contain a set of 8 masks. Each mask represents the 
bit to be modified for that index. Thus, when 
mi(X&7) is or'ed into the byte pointed to by pos, it 
sets only the bit to be plotted without affecting the 
other bits of that byte. 

In a similar manner, if color is zero 

POSA == & M2(X&7) 

erases point X,Y on the screen. ARRAY m2 is 
declared to contain 8 masks which, when and'ed 
with the byte pointed to by pos, erase a single bit 
without effecting the other bits of that byte. 

Using this Plot routine instead of the built-in 
routine increases the execution speed of Kal by 
about a factor of 3. Since none of the X values used in 
Kal exceeds 255, you can change the declaration of 
Plot to be: 

PROC Plot (BYTE X, tfl 

This will make this version of Kal run about 4 times 
faster than using the built in Plot routine, but it will 
no longer work for all legal values of X. 

If you haven't followed all of this, don't worry. I 
didn't go into any details about bit-wise operations 
(& and %) to keep the description brief. You can still 
enjoy the results (assuming you have an Action! 
cartridge). You can even use these two PROCs (Init 
and Plot) in other programs that you write yourself. 
D 

Listing 1. 



; KAL. ACT 

; Copyright 1984 BV Clinton Parker 
; All Rights Reserved 

; last Modified February 18, 1984 

TYPE REC=CCARD cnt, ax, bx,cx,ay,by,cy1 

REC p, e 

CARD period, npts, persistence 

CARD ARRAY lineC192] 

BYTE ARRAY div8C320) 

BYTE ARRAY MlC8)=I128 64 32 16 8 4 2 11 

BYTE ARRAY l«2C8J = lS7F SBF SDF SEF SF7 SF 

B SFD SFEl 

PROC Plot (CARD X, BYTE y) 
BYTE POINTER pos 

; get address of byte to Modify 
pos = line(y) + diu8(x) 

; Modify only one bit of that byte 
IF colorltO THEN ; plot 

pos>»^ ==>: »l(x i 75 

ELSE ; erase 

POSA ==« M2(X & 73 
FI 
RETURN 

PROC InitO 

CARD i, scrstart=88 
BYTE POINTER lineloc 



Put a Monkey Wrench 
into your ATARI 800 

Cut your programming time from tiours to seconds, and 
have 18 direct mode commands. All at your fingertips 
and all made easy by the MONKEY WRENCH II. 
The MONKEY WRENCH II plugs easily into the right slot of 
your ATARI and works with the ATARI BASIC cartridge. 

Order your MONKEY WRENCH II today and enjoy the 
conveniences of these 18 modes: 



• Line numbering 

• Renumbering basicline 
numbers 

• Deletion of line numbers 

• Variable and current 
value display 

• Up and down scrolling of 
basic programs 

• Locationof every string 
occurrence 

• String exchange 

• Move lines 



• Copy lines 

• Special line formats and 
page numbering 

• Disk directory display 

• Margins ctiange 

• Memory test 

• Cursor exctiange 

• Uppercase lock 

• Decimal conversion 

• Machine language 
monitor 

• Hex conversion 



The MONKEY WRENCH II also contains a machine 

language monitor with 1 6 commands that can be used 

to interact vj\ih the powerful features of the 6502 microprocessor. 




A 



3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 



CIRCLE #146 ON READER SERVICE CARD. 



A 

ATARI 



A UFETIAAE OF DISCOVERY 
BEGINS WITH ATARI COMPUTERS 



1-800-824-7506 



DISK DRrVES 

RANA 1 000 CALL 

IRAK ATI ISingle/Double Densityl CALL 

TRAK.ATDI (Single Density/Parallel Interfacel CALL 

TRAKATDZ(Single/DoubleDensity/Parallellntefface| ... CALL 

ASTRA 1 620 CALL 

INDUS GT CAa 



RAM (MEMORY) BOARDS 

ATARI 1 6K 

Intec 64K Board (400| 

Intec 48K Board |400| . . . . 

Intec 32K Board |4001 

MicroBits 64K (600) 



S 29.CX] 

109.00 

86.00 

59.00 

129.00 



MC 


COMPUTER CREATIONS, Inc 




P.O. Box 292467 


VISA 


Dayton, Ohio 45429 




For Information Call: 


CO.D. 


(5131 294-2002 


[Add S2.50I 


[Or to order in Ohio) 



PWNTIRS 

Gemini STX-80 ISO Column Thermal) S169.00 

Gemini I OX Printer |80 Column) 279.00 

Gemini 1 5 Printer ( 1 36 Column) 399.00 

Delta 10 Printer (80 Column) 499.00 

Poivenype 379.00 

Radix 10 649.00 

Radix 15 769.00 

Epson RX-SO (80 Column) Dot Matrix 379.00 

Epson RX.80FT (80 Column) 469.00 

Epson FX.80 (80 Column) Dot Matrix 579.00 

Epson FX-100 (136 Column) Dot Matrix) 749.00 

Axiom AT- 1 00 (80 Column) Inc. Int. Cable 229.00 

Silver-Reed EXP 500 Daisy Wheel Printer [80 Column) 429 XX) 

Silver-Reed EXP 550 Daisy Wheel Printer (136 Column) 679.00 

PRINTER INTERFACE CABLES 

APE FACE * 65.00 

MPP-1 1 50 79.00 

Star Universal 69XX) 

MONrroRS 

Gorilla" Hi Res 12" Non-Glare Screen % 85.00 

Gorilla" Hi Res 12" Non-Glare Amber Screen 99.00 

BMC Green Screen 79X)0 

Sakata SC100 Color Saeen 249.00 

Monitor Cable 12.00 



All Orders Add S3 00 Shipping and Handling Ohio Residents Add 6% for Sales Tax. 
ASK FOR OUR FREE CATALOG 



GENERIC DISKS 

Generic 100% Delect-Free/Guaranteed MINI-FLOPPY DISKS 



Diskettes ( 1 Box Min.) - 1 per box 

SS/DD DD/DD 

I or 2 Boxes 1 7.49/box 20 99/box 
3-9 Boxes 15.99/box 19.99/box 

lO-l- Boxes 14. 99/box I8.99/box 



Bulk Diskettes with Sleeves - 
SS/DD 
1.59 
1.49 



10-29 
30-99 



1 00-1- 



1.45 



Price per Disk 

DD/DD 

1.99 

1.B9 

1.79 



ATARI HOME COMPUrtRS 

ATARI 600XL' Home Computer (1 6K RAM) CALL 

ATARI 800XL" Home Computer (64K RAM) CAa 

ATARI 1 200XL" Home Computer (64K RAM) CALL 

ATARI 1 400XL" Home Computer (64K RAM) CALL 

ATARI 1 450XLD" Home Computer [64K RAM) CALL 

ATARI ADDITIONAL EQUIPMENT CAli 

MODEMS 

MPP lOOOC J129.00 

Signalman Mark II Mtxlem 79XX) 

Hayes Stack Smartmodem (300 BAUD) 239.00 

Hayes Stack Smartmodem ( 1 200 BAUD) 549X)0 

Novation J CAT 1 19.00 

Novation 103 Smart CAT 189.00 

Novation Auto CAT 199XX) 
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GraphiCSC24J 

5etColorCl,e,14) :5etColorf2,9,e) 

; get starting address of each line on 
; graphics 24 screen 

lineloc = scrstart 
FOR i = 8 TO 191 DO 

lineCi) = lineloc 

lineloc ==+ 48 
OD 

; pre-calculate SHall values divided 
J by eight 

FOR i = TO 319 DO 

divSCi) = i / 8 
OD 
RETURN 

PROC GenCREC POINTER r) 

BYTE X8, yO, xl, yl, ATRftCT=77 



get new a 




r.ax = tr.ax + r.bxJ 


! r.bx 


r.ay = (r.ay + r.byJ 


■ r.by 



r.cnt ==- 1 

IF r.cnt=8 THEN ; get new b 

r.bx = (r.bx + r.cxJ ! r.cx 

r.by = tr.by + r.cyj ! r.cy 

r.cnt = period 

ATRACT = 8 J turn off attact Mode 
FI 

xe = r.ax R5H 9 
ye = r.ay R5H 9 
IF X8<=y8 AND y8<96 THEN 



Xl = 191 - x8 

yl = 191 - y8 

PlotCxe+64, y8) :PIot(x8+64, ylJ 

PlotCy8+64, x8) :PlotCy8+64, xlJ 

PlotCxl+64, yei :PlotCxl464, yl) 

Plotfyl+64, xe) :Plot(yl+64, xl) 

RETURN 

PROC KalC) 
CHAR CH=764 

InitO 

; Change for different patterns: 
persistence = 2588 
period = 18808 p.cnt = period 
p.ax= 5221 p.bx=64449 p.cx=3 
p.ay=S7669 p.by=64489 p.cy=3 

; copy plot record to erase record 
NoveBlockte, p, reC) 

; handle persistence 
color = 1 
FOR npts = 1 TO persistence DO 

GenCp) 
UNTIL CHtt255 OD 

; draw patterns until key drepressed 
HHILE CH=255 DO 

color = 1 GenCp) 

color = 8 Gence) 
OD 

; ignore key and restore screen 

CH = 255 : Graphics(8) 
RETURN 



VERY LOW PRICES GET YOUR ATTENTION 
VERY GOOD SERVICE KEEPS IT 



AT RCE WE NOT ONLY PROVIDE OUR PATRONS WITH LOW PRICES ... WE BACK THEM WITH 
SUPPORT! ! ! FACTORY AUTHORIZED SERVICE CENTER SUPPORT FOR OVER TWENTY DIFFERENT 
BRANDS OF HOME ELECTRONICS INCLUDING . . , ATARI, FOURTH DIMENSION, MICRO-SCI, SANYO 
FRANKLIN, PANASONIC AND U.S. PIONEER. APPLE WARRANTY SERVICE AVAILABLE. 



FACTORY AUTHORIZED SERVICE COMBINED WITH PRICES LIKE THESE: 



ATARI HARDWARE 





LIST 


RCE 


600XL COMPUTER . . 


. $199 


$CALL 


800XL COMPUTER . . 


. $299 


$CALL 


1400XL COMPUTER . 


. $599 


$CALL 


1450XL COMPUTER . 


. $999 


$CALL 


1010 RECORDER .. . 


. $100 


$75 


810 DISK DRIVE ... 


.$599 


$429 


850 INTERFACE 


. $219 


$165 


1020 PRINTER 


$299 


$239 


1025 PRINTER 


$549 


$439 



MONITORS 

GREEN SCREEN 

BMC 12" $89 

ZENITH 12" $99 

SANYO 12" $205 

BLACK & WHITE 

SANYO 9" $145 

SANYO 12" $189 

AMBER SCREEN 

ZENITH 12" $115 

AMDEK 12" $179 



PRINTERS 
STAR MICRONICS 

GEMINI 10 $CALL 

GEMINI 15 $CALL 

MODEMS 
HAYES SMARTMODEM 300 . . $209 

MICROBITS MPP 1000 $169 

INTERFACES 

MICROBITS MPP 1100 $89 

DISK DRIVES 
RANA $319 



RCE COMMANDER 2400 

SPECI FY 400 or 800 version 

2400- 1 $199 

2400- 2 $169 

OUR PRICES ARE 

ALWAYS GOING 

DOWN 

CALL FOR LATEST 

REDUCED PRICE 



SEND FOR RCE'S FREE ATARI HARDWARE AND SOFTWARE CATALOG 
WE ALSO CARRY A FULL LINE OFAPPLE/FRANKLIN AND IBM COMPATIBLE SOFTWARE! 

ORDER TOLL-FREE 

800-547-2492 

N OREGON: (503)479-4711 
RALSTON CLEARWATERS ELECTRONICS 
536 N.E. 'E' STREET GRANTS PASS, OR 97526 
ALL BRANDS ARE REGISTERED TRADE MARKS 
FOR CUSTOMER SERVICE CALL: (503)479-4711 or (503)479-4150 




TERMS: 

SHIPPING: Add t% of total tranuclion (or UPS brown (ground) or 9% for UPS blue (air), P'rcel Pom 
or any special irranicmcnt). Minimum ihipping charge - »6 00 

PAYMENT: Caihier'5 chetki. certified checki, money orders, ^nd bank wirci honored immediately. 
Visa A Masltr Charge accepted. Allow 30 days for personal checks to clear. 

REFUNDS: 10% restocking charge on all returns or exchanges. No refunds on opened software. Call I 
GUARANTEE: All products with full manufacturer's warranty. Sanyo and Apple warranty available. 
We have full repair and service facilities for all electronic repairs with HP, Dynascan. Pioneer, Sanyo a 
Apple trained and certified lechniciani. For any technical service call them for instant advice or quest 
right on Iheir benches at (5031 479-4150. 

REPAIRS: Call for details on quality guaranteed discount repair and reconditioning service. 
We have been repairing electronic equipment for 12 years and love it) 



CIRCLE #148 ON READER SERVICE CARD. 



Has More In Store 



We're The Experienced Generation 
Of ATARI Experts! 

• Software — Over 1000 Titles! • Instruction 

• Hardware 

• Educational & Business 
Consultations 

• Authorized Service 



• 24-Hour Bulletin Board at 
(617) 371-1855 

• Shipments Everywhere 



Receive a FREE 

Programmers Aid Disk 

when you buy ACTION 

from OSS! 

ACTION $99 

Programmers Aid Disk 30 

1129 Value 
For Only $99! 



Disk Drives From: 

• ATARI • RANA • TRAK • INDUS • 



New! Programmable Keyboard Only $29.95! 



Works with ATARIWRITER, 
Basic, Assembler Editor, Program- 
Text Editor, and many other 
application programs. 



One programmable key can return 
a word, phrase, or any 
combination of keystrokes at 

speeds of up to 60 characters per 
second! 



New England's^l ATARI Source 

RAM COMPUTER CENTER 

427 Great Road, Acton, MA 01720 (617) 263-0418 
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PLANETFALL 
by Steve Meretzky 
INFOCOM, Inc. 
55 Wheeler St. 
Cambridge, MA 02138 
32K Disk $49.95 



by Carl Finnan 



Would you like to send a post card from another 
planet to one of your friends? You would! Well, 
you'll find three of them in the Official Document 
File (ODF) that comes with the latest (and best) 
science fiction adventure from Infocom, Planetfall. 
These are real 1 10th-century post cards; the one 
from "Historic Ramos 11" is my favorite (they even 
have old fashioned rocket ship rides there). 

As you prowl through the ODF you will find out 
more about the Third Galactic Union (TGU). The 
TGU exists in the year 11,344. The TGU has the 
honor of being the LBG (Largest Bureaucracy in the 
Galaxy). You can't stand the TGU's LBG, and have 
decided to escape by enlisting in the Stellar Patrol 
(SP); you know, the one with the recruiting poster 
that says, "The Patrol's Looking For A Few Good 
Organisms." 

If you want to know more about the SP and 
Planetfall, I will have to get my Magnetic Briefing 
Disk (MBD) out of my ODF and boot it. OK, here 
we are in 11,344, ODF's, the TGU, LBG and 15- 
page income tax forms (short form). Now you find 
out that Planetfall was written by a person known 
as the "Bearded Oracle of Yonkers" (real name, 
Steve Meretzky) and uses the ancient, but still fam- 
ous, Infocom Interlogic operating system from the 
20th century. With Interlogic, you can now com- 
municate with your computer using complete sen- 
tences and a 600 word plus vocabulary — all text 
(bureaucracies like the TGU love text), no pictures. 

You also discover that you are an Ensign 7th Class 
in the SP and that you have an official, authorized 
I.D. card to prove it. It will quickly become obvious 
that the recruiting posters that you read did not tell 
you everything. Ensign 7th Class is the lowest of the 
low. You're a deck-swabbing, brass-polishing member 
of the Special Assignment Task Force on board the 
SPS Feinstein. 

Life is cruel on the Feinstein, mostly because of a 
certain Ensign 1st class Blather. When you meet 
Blather, your first impulse will be to render his mole- 
cules into a mass off disassociated atoms. Well, keep 
smiling at Blather; his time as a functioning group of 
associated molecules is short! 

Shortly you find yourself plummeting towards the 
surface of a planet in one of the Feinstein^s escape 
pods. Through the pods viewport, you will see the 



whole SPS Feinstein disassociate — including Blather 
and all your shipmates. You are the sole survivor! 

Well at least you won't have Blather to worry 
about any more. In fact, you are about to land on a 
water world with two small islands. Ah, dreams of a 
tropical paradise like Teegy 5. 

Splashdown! Dreams of paradise are shattered 
quickly; as you climb to the top of the first island, 
you find yourself alone. A little exploring and you 
discover a large, deserted, technological complex. 
Where are all the people? Why aren't they here? 
Well, you're not discouraged — are you? After all, 
you've got your official (authorized also) mop, 
bucket, survival kit, and of course your Towel* 
(towels are very important on strange planets). Night 
comes, and with it tiredness — you head for the 
deserted dormitory you found earlier and bed down. 
Surely tomorrow will bring some answers (Ensigns 
7th Class are notorious for being overconfident). 

When you wake, you start to feel the loneliness — 
even Blather's company would be welcome right 
now. You are of course hungry so you eat some of the 
food goo in the survival kit. You feel better after 
eating, but not quite up to SP standards. You decide 
to learn as much about your environment as possible. 

Now — The real adventure begins. You have a 
whole world to explore. Even though it only consists 
of two small islands, there is a lot to learn and a great 
dilemma to solve — yours and the planet's (hint 
from TGU central — the planet really is falling). You 
will find elevators, underground shuttles, helicop- 
ters and teleport booths. These all require official 
authorized access cards. Then there are some ques- 
tions to answer — Where are all the people? Did they 
leave? Why do you feel slightly ill? 

In the course of your exploration you will find a 
room full of robots. One of them is "Floyd". Floyd 
is shghtly cockeyed with a strange lopsided grin — 
but he will prove to be as staunch and true a com- 
panion as E.T. was to Eliot. In fact Floyd is critical to 
your survival — so take good care of him. 

You have one immediate priority — food. You 
have to eat, and the quickest way to die in the 1 10th- 
century is to starve. The second thing you will need 
is access cards, and Floyd can help you here when 
he's not reciting the first six hundred digits of Pi. 
Access cards will provide food and transportation — 
seek them out. There are also computers to use (even 
some game tapes), alien laboratories and a library; all 
will provide additional clues to your dilemma. Exer- 
cise good Ensign 7 th Class logic and you will be a 
"Hero" and save this water world from destruction. 
I am going to put the MDB back in your ODF — 
you'll probably find it mixed up with the post cards. 

There is one cardinal rule for people stranded on 
strange worlds to remember; when all seems lost 
always remember where your towel* is and every- 
thing will be fine. D 
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File 'em 

A Mag^azine Indexing Program 



32K Disk 



by Norman Hill 



How often have you thought that a certain 
hardware or software product you've heard about 
might now be of use to you? You remember that 
there was a review of such an item in one of the 
magazines, but that was several months ago. It will be 
necessary to search through a pile of back issues in 
order to find it, and, also, it may be that several 
similar items have been reviewed in different issues. 
A comparison is always helpful. 

A commercial database manager would be a useful 
way of coming up with the necessary information. 
However, if you are like me, you prefer to design 
your own program. File'em is not as sophisticated as a 
professional DB, but it should be more than 
adequate for your needs. 

File'em is designed to store information about 
magazine articles on disk and to retrieve that 
information when required. 

After typing in and D:CHECKing the program, 
SAVE it to disk. The program is set up to add or 
retrieve information from already existing data files. 
Since such files do not exist, it will be necessary to set 
up new files before RUNning the program. 

Insert a newly formatted disk into the drive and 
type in the following program: 

le OPEN ttl, 8, 8, "D: FILEEM1.DAT" 

28 CLOSE ttl 

38 OPEN ttl,8,8,"D:FILEEH2.DftT" 

48 CLOSE ttl 

58 OPEN ttl, 8, 8, "D: FILEEM3.DAT" 

68 CLOSE ttl 

78 OPEN ttl, 8, 8, "D: FILEEH4.DAT" 

88 CLOSE ttl 

98 OPEN ttl,8,8,"D:FILEEM5.0ftT" 

188 CLOSE ttl 

118 OPEN ttl,8,8,"D:FILEEM6.DftT" 

128 CLOSE ttl 

138 OPEN ttl,8,8,"D:FILEEH7.D0T" 

148 CLOSE ttl 

158 OPEN ttl,8,8,"D:FILEEI<i8.DaT" 

168 CLOSE ttl 



When this program is RUN, the eight data files 
will be set up on your data disk. 

Now load FILEEM and type RUN. You will be 
asked if you wish to make entries or retrieve 
information. Obviously, you will type "1" at this 
stage. 

The next prompt will ask you to put the File'em 
data disk into drive #1 and press RETURN. You will 
now be asked in turn for the Publication, Date, Title 
and Page Number. 

When these entries have been made, you will be 
asked for the language. Since many magazine 
programs are now being given in a mixture of BASIC 
and Assembler, number 8 allows for that possibility. 
For reviews and informational articles, where no 
computer language is used, enter 9. You may also 
prefer to alter some of the entries given in the 
program. Since Lisp is rarely used in microcomputer 
programming, you may prefer to leave number 4 
blank, to be filled in later with some new language 
that may become popular in the future. I do not use 
Lisp, FORTH, PILOT or Pascal, but it is useful to 
have articles on file which involve these languages. 
Perhaps some day I will become interested in these 
languages and will wish to retrieve information 
concerning them. 

The next prompt is for "Type of Article." 
Number 8 is available for any type that does not fit 
the earlier descriptions. 

Next you will be asked for two keyword numbers 
from a given list. You may, of course, enter the same 
number twice. For an article dealing with Player/ 
Missile Graphics you could enter 8,16 or 16,16 or 
16,32. Number 32 is again a relief number if nothing 
else seems to fit. Numbers 29,30,31 are vacant and 
may be used for other keyboards. 
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Finally, you are asked if you have any more 
entries: If you enter Y, you will be returned to the 
first prompt. If you enter N, the program will end. 
Since the "Type of Article" prompt calls for a 
particular data file, each record is stored on disk as it 
is made. The next record entered may use a different 
file. If an error is made while making entries, and it is 
noticed before the record entry is completed, a 
simple SYSTEM RESET will let you restart the 
program and remake the entry. 

When retrieving information, you will be asked 
for Language, Typ)e of Article, and 2 Keywords. If 
you enter 1 for BASIC; 7 for General Utility; 32,32 
for keywords, you will be presented with all General 
Utilities in BASIC. 7, 32 or 7, 7 for keywords will 
return all Financial Utilities in BASIC. Note that 32 
is again a general escape keyword. 

Output may be to the screen or to the printer. The 
printer output is designed for an 80-column printer. 
If you have a 40-column printer, the output 
instructions will obviously have to be modified. 
Lines 1380-1460 in the BASIC program are designed 
to format the printer output. D 



18 REM MKWmCKltKltMKMKICMMKKICICKKMMKICKIt 
2e REM * FILE 'EM * 

30 REM « BY « 

40 REM « NORHON HILL « 

50 REM KKKKKICKKlCKKItKICICKKIClCKKKWMlCKItM 
60 DIM T$C25),P$Cie},D$C8].H$Cl),PRSCl 
1 . BZ$ CIO) , AZ$ CIO) , NS €13) : N5="D : FILEEHO 
.DAT": GRAPHICS 17 

80 PHIMT tte SPRINT t»6;" DO YOU WISH TO " 
90 PRINT tt6: PRINT ttS;" 1 IZHM J^IHiiWa " 
100 PRINT tt6: PRINT »6;" or" 

110 PRINT tt8: PRINT tt6;" 2 ti tAWiHilja=n 

nasi " 

120 PRINT t»6:PRINT tt6:PRINT tt6;"TYPE N 

UMBER REQUIRED" 

130 OPEN tt2,4,C0,"K" 

140 GET tt2,A:IF A<49 OR A>50 THEN 140 

150 CLOSE «2:IF A=Se THEN 840 

160 GRAPHICS 0: PRINT "PLACE '121111000 

?' DISK IN DRigE 1"; PRI NT 
70 PRINT "PRESS [d^Mdl] HHEN READY"; 
180 INPUT P$:IF A=50 THEN 290 
190 PRINT CHR$C125):REM CLEAR SCREEN 

200 REM 

210 REM ENTER INFORMATION 

220 REM 

230 PRINT " CHECK EACH ENTRY CAREF ULLY" 

248 PRINT "OHlHai PRESSING 1010133" 

250 PRINT "PUBLICATION CMAX 18 CHARACT 

ERS)": INPUT PS 

260 PRINT "DATE"; :INPUT D$ 

270 PRINT "TITLE tMAK 25 CHARACTERS)":I 

NPUT T$ 

288 PRINT "PAGE NUMBER"; : INPUT P 

298 GRAPHICS 1 

388 PRINT l»6;" LANGU AGES" 

318 PRINT tt6: PRINT tt6;" IMJJIiiW ; PRINT 

tt6:PRINT tt6;" 2 Hicrosoft" 

328 PRINT It6: PRINT tt6;" h»=t-l.-IJ! t at J g " ; P 
RINT tte: PRINT 118;" 4 LISP''~~_~^ 
330 PRINT tt6:PRINT t»6;" 5 I2I3E1" : PRINT 

tt6: PRINT t»6;" 6 pilot" 

340 PRINT tt6:PRINT U6;" B1ESaiP":PRIN 
T tte: PRINT «6;" 8BA5IC "aSSEIP: PRINT 

116: PRINT 116;" fcMiHilJd " 
350 PRINT "ENTER LANGUAGE NUIffiER";:INP 
UT L 

370 GRAPHICS 1:? tt6;" TY PE OF ARTICLE" 
380 PRINT t»6: PRINT tt6;" IMtlMMiUCTnm 
": PRINT tt6: PRINT 116;" 2 education"' 



390 PRINT tte:PRINT tt6;" ^EECS":PRINT 
tl6: PRINT l»6;" 4 INFORMAT ION" 
400 PRINT tt6: PRINT tffi;" tdlllAmil! " iPRIN 
T tt6:PRINT tt6;" 6 hone u tility 

410 PRINT 1(6: PRINT tt6;" 

H3!!]": PRINT ft6: PRINT It6;"~7 OTHER' 

420 ? "ENTER TYPE NUMBER"; : INPUT T 

430 IF A=50 THEN 530 

440 N$t9,9)=STR$CT):0PEN 111, 9, CO, N$ 

538 GRAPHICS C8:SETC0L0R 2,4,2 

540 PRINT "^ ^KEYWORDS" : PRINT 

558 PRINT " 1 ADVENTURE"," 2 ARCADE" 

568 PRINT " 3 CLOCK",," 4 COMPILERS" 

578 PRINT " 5 CONSOLE"," 6 DISK" 

580 PRINT " 7 FINANCES"," 8 GRAPHICS" 

598 PRINT " 9 GRAPHS", "18 G.T.I. A." 

688 PRINT "11 HARDiMRE","12 HOME UTILI 

TIES" 

610 PRINT "13 JOYSTICK", "14 MEMORY" 

620 PRINT "15 PADDLE", "16 PL/MISS" 

630 PRINT "17 PLAYFIELD","18 PLOTTERS" 

640 PRINT "19 PRINTER", "20 SOUND" 

650 PRINT "21 SIMULATION", "22 STRINGS" 

660 PRINT "23 TAPE",, "24 UOICE" 

670 PRINT "25 HORD-PROC .","26 0/S" 

688 PRINT "27 REGISTERS", "28 MSDEM" 

698 PRINT "29",, "30" 

700 PRINT "31",, "32 OTHER" 

710 PRINT : PRINT "ENTER 2 KEVMORD NUMB 

ERS"; :INPUT K1,K2 

720 GRAPHICS CO: IF A=5e THEN 910 

730 REM 

740 REM PRINT TO DISK 

750 REM 

760 ? ttl;PS:? I»1;DS:? »1;TS:? ttl;P;"," 

770 CLOSE l»l 

780 ? :? "ANY MORE ENTRIESCY/N)"; 
790 INPUT M$:IF M$="Y" THEN 190 
800 END 

810 REM 

828 REM TYPE OF OUTPUT 

838 REM 

848 GRAPHICS C8: PRINT "^DO YOU HANT" 

850 PRINT : PRINT "Kl) DISPLAY": PRINT " 

► OR": PRINT "K2) PRINTOUT": PRINT 

860 PRINT "KYPE NUMBER REQUIRED" 

870 OPEN tt2,4,C0,"K" 

888 GET tr2,B:IF B<49 OR B>58 THEN 888 

898 B=B-48: CLOSE 1*2 

900 GOTO 160 

910 N$C9,9>=STR$CT) :OPEN ttl,4,Ce,N$ 

1000 IF B=l THEN 1090 

1018 REM 

1020 REM HEADINGS TO PRINTER 

1030 REM 

1040 PRINT : PRINT "HS PR INTER O N?" 
1050 PRINT : PRINT "PRESS [dlMlLU] MIEN R 
EADY";: INPUT PR« ui™_i^ 

1060 PRINT CHR$C125) 

1070 LPRINT " PUBLICATION DATE 

PAGE TITLE" 
1080 LPRINT " 

If 

1890 TRAP 1340 

1188 REM 

1118 REM GET INFONATION FROM DISK 

1120 REM 

1130 INPUT ttl; PS: INPUT ttl;D$: INPUT ttl; 

T«:INPUT ttl;P,LI,TI,Cl,C2 

1140 IF LI=L OR L=9 THEN 1168 

1150 GOTO 1130 

1168 IF TI=T OR T=8 THEN 1188 

1170 GOTO 1130 

1188 IF Kl=32 OR K1=C1 OR K1=C2 THEN 1 

200 

1190 GOTO 1130 

1208 IF K2=32 OR K2=C1 OR K2=C2 THEN 1 

220 

1210 GOTO 1130 

1220 IF B=2 THEN 1380 

^230 REM ——— — 

1240 REM PRINT TO SCREEN 

1250 REM 

1260 PRINT P$,D$,"PAGE ";P: PRINT T$ 

1288 GOTO 1130 

1290 REM 



^241 

^hourn 

'SHIPPING^ 

BACK UP ANY ATARI' 

RIGHT-WRITE 



BACKUP HARDWARE & SOFTWARE 



THE HAPPY^" 810 ENHANCEMENT KIT 
WITH WARP SPEED SOFTWARE 

'DISK 



''24^ 

'HOURN 

'SHIPPING^ 



CALL FOR SPECIAL LOW PRICE 



This device will allow you 
to write to side 2 of any 
disk. Install this box to your 
Atari™ 8-10 disk drive in 5 
minutes. Just plug in one 
cable — no cutting or sol- 
dering required. 

Push the button and a red 
led will light, allowing you 
to write a disk without 
notching out a hole in the 
disc. 

Easy plug-in installation 
instructions included. 

Fullytested and assembled. 
ONLY 



$2495 



THE 
TRANSFER PACK 

1) Disk file to tape 

2) Boot tape 
to disk file 

3) Tape to tape 

Very powerful and 
low priced. 

We haveamulti-stage cas- 
sette Transfer Program to 
the Transfer Pack. This pro- 
gram will do most multi- 
stage tapes. It will transfer 
them to disk files. 



ALL 4 
FOR ONLY 



$2495 



NOW AVAILABLE 
THE ULTIMATE BOOK 

On copyguarding. Master code/ 
cracker reveals all. Hardware 
and software tricks. Informative 
book and disk with examples 
and programs. 



ALL FOR 



$2495 



THE REPRODUCER 

Reproduce copy-guarded disks on 
the Atari'" 1050 disk drive. Our Repro- 
ducer is a simple plug-in modification 
for the 1050 drive. With our software 
you will be able to write bad sectors. 



Reproducer 

and 

software; 



$4995 



PHONE ORDERS: 

Ip) 467-1866 

^DUCTINFO: 

(516) 588-6019 



We are working on new products 

and software. 

For information call (516) 588- 

6019. 

Add $5 for Shipping & Handling. 



We accepi COD. orders. 



GARDNER COMPUTING COMPANY -;vc>rd.sanc.s.,pwi.h 



P.O. BOX 388, HOLBROOK, N.Y. 11741 
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(Personal checks will have 
to clear before shippinq ) 



A 

ATARI 




MAILORDER 

P.O. BOX 3354. CHERRY HILL, N.J. 08034 



A 

ATARI 



TOLL FREE C800) 992-3300 



FOR INFORMATION & N.J. CALL (609) 596-1944 

[ATARI HOME COMPUTERS 

Atari 600 XL CALL 




,„,n. H $7R SOFTWARE 

1010 Recorder *7B 

1020 Printer «239 *'•■"'"'"" 'Jj ^"""' !?? 

,„, _ . . j-,c Speed ReadinE »aO lousl 'al 

.. ■ n,yn. u. Oall "'2^'^""'" Z-™ Pile! $55 Ms. Pac Han $35 

Atari 800 XL 0311 1027 Daisy Wheel Printer S27a ^,,„„3, ,„„ ,,7 „,„„, $35 

830 Modem S99 ,„,, $72 ,i. S35 

CX4I9 Bookkeeper S195 Family Finance >36 Mickey Manse *37 

1030 Modem 'CALL Home FlllnE Mananer '39 Pa™l *35 



1050 Disk Drive Call 

Communicator 11.... $135 



FOR ORDER 
ONLV 

Microsoft Basic 2| 

$61.00 

Donkey Kong 

$35.00 

Pole Position 
$36.50 



PRINTERS 

OKI DATA 

92 SCALL 



EPSON 

RX-80 CALL 

RX-80FT CALL 

FX-80&FX-100 CALL 

Printer Interface $79 



STAR 

(206 
$399 
Smith Corona 

I rp-2 $445 



Gemini 10X.. 
Gemini 15X.- 



PERCOM 

DISH Driue 

$GALL 



DISKS 

Elephants 

ss/sD ^M.sa 

SS/DD 521.00 

Fuji SS/DD $20 

Verbatim SS/DD *2a 

Maxell IMDii S26 




MONITORS 

AMDEK PW) ^154.95 I 

COLOR I $295.00] 

WICO 

The BossM 4.95 Joystick S20.00 I 

Famous Red Ball ^25.95 

Track Ball $35.95 



COMPUTER COVER 



Features heavy duty canvas 
with vinyl interior - waterproof. 

ATARI 800 '7.99 

A7ARI 810 »7.99 

EPSON MX 80 >7.99 

EPSON MX SOFT >7.99 

OKIDA TA pa2A ,92 »7.99 



SURGE PROTECTOR 
UL LISTED 



6 Outlet «62.95 

4 Outlet $37.95 




We carry a large selection of Atari software, call for FREE catalog with order 
...or send $1 (refundable with order) UPS shipping 3% for hardware and 

$3 for software. N.J. resident add 6 % sales tax. 



PRICES SOBIECT TO CHANGE WITHOOT NOTICE. 



VISA 

1 1 


w\ 



I IBM and Okidata aie reeistered trademarks, t 



MASTER CARD OR VISA ADD 3% 
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1386 REM PRINT TO PRINTER 

1318 REM 

1328 LPRINT :LPHINT " "jPS;" "; 
05;" "jBZS;" ";TS 

1338 GOTO 1138 
1348 CLOSE ttl:END 

1358 REM 

1368 REM FORMAT PRINTER OUTPUT 

1378 REM 

1388 BZS=" 

1398 LN=LENfP$) 

1488 IF LN<18 THEN P$ CLN+1] =BZ5 (1,18-1 

N) 

1418 LN=LEN(D$) 

1420 IF LN<8 THEN DS(LN+1]=BZ$(1,8-LN) 

1438 AZ5=5TRSCP) 

1448 BZ$C4-LEN(AZ$})=AZ$ 

1458 BZ$=BZ$C1,3) 

1468 GOTO 1328 



CHECKSUM DATA 

(See p. 30) 

18 DATA 335,264,977,647,343,485,942,74 

,32,322,876,328,689,512,964,7782 

178 DATA 489,689,877,871,795,877,52,13 

4,77,461,134,324,916,457,479,7632 

328 DATA 649,389,648,771,873,523,127,6 

77,268,968,419,53,58,172,581,7888 

568 DATA 539,983,813,118,746,437,352,7 

94,287,982,969,488,483,247,3,7913 

718 DATA 645,18,375,934,381,586,668,32 

6,75,48,616,393^622,182,783,6484 



868 DATA 784,346,666,632,717,39,537,14 
1,261,143,812,88,447,369,987,6889 
1890 DATA 679,438,659,448,839,405,711, 
449,713,488,715,493,718,551,634,8924 
1248 DATA 513,636,349,717,885,915,888, 
776,715,346,179,444,181,998,22,8556 
1488 DATA 846,993,526,238,67,3,721,338 
6 



In issue no. 15 of ANALOG 
Computing, we presented a com- 
plete index of articles which had 
appeared up to that point. File'em 
may be used to index these articles. 

For those readers who would like a 
copy of issue no. 15, send $4.00 to: 

Back Issues 
P.O. Box 23 
Worcester, MA 01603 



A 
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A LIFETIME OF DISCOVERY 
BEGINS WITH ATARI COMPUTERS 



1-800-624-7506 



MM CMEMORY) BOARDS 

ATARI 1 6K 

Inlec 64K Board |400| 

Intec 48K Board (400) , . . . 

Intcc 32K Board (400) 

MicroCits 64K |600| 



DISK DRIVES 

RAMA 1 000 CAU 

TRAK An (Single/Dojble Density) CAU. 

TRAK ATDl (Single Density/Parallel Interface! CALL 

TRAK ATD2 (Single/Double Density/Parallel Interface) ... CAa 

ASTRA 1620 CALL 

INDUS GT CAa 

PRIMIERS 

Gemini STX-80 (80 Column Thermal) $169.00 

Gemini lOX Printer (80 Column) 279.00 

Gemini 15 Printer (136 Column) 399.00 

Delta 10 Prrnter (80 Column) 499.00 

Powertype 379.00 

Radix 10 649.00 

Radix 15 769.00 

Epson RX-80 (80 Column) Dot Matrix 379.00 

Epson RX-eOFT (80 Column) 469.00 

Epson FX-aO (80 Column) Dot Matrbc 579.00 

Epson FX-lOO (136 Column) Dot Matrix) 749.00 

Axiom AT-I OO (80 Column) Inc. Int. Cable 229.00 

Silver-Reed EXP 500 Daisy Wheel Printer (80 Column) 429.00 

Silver-Reed EXP 550 Daisy \X/heel Printer [ 1 36 Column] 679.00 

PRINTER INTERFACE CABLES 

APE FACE S 65.00 

MPP-1 1 50 79.00 

Star Universal 69.00 

MONITORS 

Gof ilia" Hi Res 1 2" Non-Glare Screen $ 85.00 

Gorilla" Hi Res 12" Non-Glare Amber Screen 99.00 

BMC Green Screen 79.00 

Sakata SCIOO Color Screen 249.00 

Monitor Cable 1 2.00 



S 29.00 

109.00 

86.00 

59.00 

129.00 



MC 


COMPUTER CREAT(ONS, (nc 




PO. Box 292467 


VISA 


Dayton. Ohio 45429 




For Information Call: 


COD, 


(5I3| 294-2002 


(Add S2.50) 


(Or to order in Ohio) 



All Orders Add S3 (XI Shipping and Handling. Ohio Residents Add 6% for Sales Tax. 
ASK FOR OUR FREE CATALOG 

GENERIC DISKS 

Generic 100% Defea-Free/Guaranteed MINI-FLOPPY DISKS 



Diskettes [ 1 Box Min.) - 1 per Dox 

SS/DD DD/DD 



Bulk Diskettes with Sleeves - Price per Disk 
SS/DD DD/DD 

10-29 1.59 1,99 



1 or 2 Boxes 17-49/bax 20.99/box 

3-9 Boxes I5.99/box 19.99/box 30-99 1.49 1.89 

1 0+ Boxes 1 4.99/box 1 8.99/box 1 00-f 1 .45 1 . 79 

ATARI HOME COMPUTERS 

ATARI 600XL'" Home Computer ( 1 6K RAM) CAa 

ATARI eOOXL" Home Computer |64K RAM) CALL 

ATARI 1 200XL~ Home Computer |64K RAM) CALL 

ATARI I400XL" Home Computer (64K RAM) CALL 

ATARI 1 450XLD~ Home Computer (64K RAM) CALL 

ATARI ADDITIONAL EQUIPMENT CALL 

MODEMS 

MPP \00OC H29.00 

Signalman Mark M Modem 79.00 

Hayes Stack Smartmodem (300 BAUD) 239.00 

Hayes Stack Smartmodem ( ? 200 BAUD) 549.00 

Novation J CAT 1 1 9.00 

Novation 1 03 Smart CAT 1 59,00 

Novation Auto CAT 1 99,00 
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BACK ISSUES 



Catch up on 
what you^ve missed! 



A.NALQ&SSSgg - -"I 




ISSUE 2 

Wasting Arrays 
Atari's CPU 
Download Terminal 
Converting BASIC 
Disk Files 




ISSUE 13 

Fine Scrolling Part 1 
Roundup 
Space Assault 
Observational Astronomy 
CIO Routines 





ISSUE 8 

GTIA Graphics 

Audio in Your Programs 

NOREM 

Graphic Violence 

Color Slot Machine 



ISSUE 9 

Build Your Own 400 
Keyboard 

Harvey Wallbanger 
Forth -Dos 
Letter Writer 





ISSUE 14 

Fine Scrolling Part 2 
Disassembler in BASIC 
Hexpad 
Lumberjack 
Retrofire! 



ISSUE 15 

Fine Scrolling Part 3 
Knights and Chalices 
Music Synthesizer 
Bricklayer's Nightmare 
Alternative Keyboard 
Handler 



All back issues $4.00 each 




ISSUE 11 

Strings in BASIC 

C:CHECK 

Disk Cataloging Utility 

Adventure in the 

Fifth Dimension 
Moving Missiles in BASIC 




ISSUE 16 

Fine Scrolling Part 4 
Create-A-Font 
Bar Chart Subroutine 
Shooting Stars 
3-D Object Rotation 



Send check or money order to: 

ANALOG Back Issues 

P.O. Box 615 

Holmes. PA 19043 



MasterCard and Visa orders call: 

1-800-345-8112 

in PA. 1-800-662-2444 



miRRITES THE OPfUPII^i!!* 

PURCHASE MKPMI PROGRAM AND WE WILL GIVE YOU, ARSOLUTELY FREE, 

HOmC SKh A 100% MACHINE LANGUAGE ARCADE-STYLE GAME 

RY LEN DORFMAN, IH HONOR OF THE 1084 OLYMPICS AHD 

PMI WILL DONATE $1.00 TO THE D.S. OLYMPIC TEAM FOR EACH PROGRAM SOLD!! 

HURRY! THIS UFFER IS FOR A LIMITED TIME OHLY! 

WUMPYR'S m- - wM-um 

WARNING!! Thiis adventure may be Have you ever wondered what your ERG, another 1 00% machinp 

3amerG.in'!t'"'M';T°''^' '^ • computer would have to say about language arcade styTegam^^ 

James Glines, will take you on a jour- that party you had last weekend? Or Len Dorfman is the ultirnate maze 

ney from the village of Amberpool the shape the world is in today? Well escape chaTenaXSesS 

hrough a 'mid-evil' countryside now you can find out. COM-CON has levels mult Se rSazes rSfna enerav 

filled with magical spells, demons arrived! COM-CON by William Austin fields ^hS^v^lldrafn you energy'' 

o?evai ?n WAMPYR^'IVoKo^^^ ^° !' '" unique, exciting and entertain- and proton barriers which cause 

^Mof ^ ' J!^ V ^ ^°" '"9 P'°5'^"' foi- everyone. Your com- disintegration upon contact are the 

must do morel You must equip your- puter can answer your questions on obstacles vou will face If vou arpan 

self to do battle with the LICH and virtually any topic While carrying on Lpert stfateqist and voSexef 

T. °* ,^°"/^^ ^^"^'^ '= ^^^ °P*'°" ^ discussion with COM-CON you will are ^oned to a SzoTs edae H f vou 

of dying!) We will supply you with a notice that your computer actually can pull a gnati Xsker out as'he 

little money and the opportunity to has a "personality" oflts own. And flies by thfodds are aboStevJn 

go where you've never been; the like any human being the answers You might fus?«^n.ReSesS 

courage and the desire to conquer will sometimes be as vague and neb- ram and one dTk dS 

the unknown must come from ulous as a political candidate. And at "^"^ ^nd one disk drive, 

within. WAMPYRS TOMB will not other times quite philosophical. If RF^mRF 

only challenge your bravery, your you're 4 to 1 04 COM-CON is for you 

intelligence and your cunning, but COM-CON is available for the Votrax '-'^* ^^^ unlistable! RESTORE by 

will take you beyond your imagina- Type 'n Talk, $31 .95, the Alien Group William Fletcher will allow you to 

tion into a realm of new and exciting Voice Box $31 .95, SAM $31 .95, and in "^^^^ ^ LISTABLE, EXECUTABLE copy 

forces where only legends survive. a text only version $26 95 Requires of any BAS/C program. RESTORE is 

Requires 48K RAM and one disk 48K RAM, BASIC cartridge, one disk extremely user-friendly and the sim- 

drive. Hriuo anH nntinnai wnir>a oJr.thaoir.<» plicity of Operation is astoundina. 



$29.95 

mmn mm 

SWORD POINT, by William A. Austin, 
is a very unique and exciting adven- 
ture. You will assume the role of a 
young man seeking to climb to the 
pinnacle of success in the mythical 
monarchy of Simafranconia, a nation 
not unlike feudal 17th Century Europe. 
It is a country of totally masculine 
values, where style supersedes 
substance, and social level is not the 
best thing, it is the only thing worth 
acquiring. Dueling, gambling, wench- 
ing and high living are among a few 
of the things that you will do to gain 
the King's attention. So tankards up 
. . .a toast to bravery. . .with a little 
luck and by dancing to the daredevil's 
tune on the Swords Point. . .you may 
just win! Requires 48K RAM and one 
disk drive. 

$31.95 

If you have written a program that 
is technically sophisticated and also 

"user-friendly", PMI would be in- 
terested in publishing your worl<. For 
information on how to submit your 
material write to: PMI, P.O. Box 2895, 
Winter Park, FL 32790-2895, Or phone 
(305)644-3822. 



KARiiic umm 

KARMIC CAVERNS, by Len Dorfman, 
is a 100% machine language arcade- 
style game that will entertain you hour 
after hour! You must find your way 
through the maze-like caverns avoid- 
ing the deadly plasmatic guards (not 
to mention the electrified walls) and 
acquire as many energy pods as you 
can. You must climb ever upwards 
striving to acquire enough energy 
points to reach the next level before 
time runs out for you. KARMIC 
CAVERNS utilizes the full sound and 
graphics capabilities of the Atari 
computer! Fun for all ages. Requires 
48K RAM and one disk drive. 

$34.95 



ERG, another 100% machine 
language arcade-style game by 
Len Dorfman, is the ultimate maze 
escape challenge!! Multiple skill 
levels, multiple mazes, roving energy 
fields which will drain your energy 
and proton barriers which cause 
disintegration upon contact are the 
obstacles you will face. If you are an 
expert strategist and your reflexes 
are honed to a razor's edge (i.e., you 
can pull a gnat's whisker out as he 
flies by) the odds are about even. 
You might just win! Requires 48K 
RAM and one disk drive. 

S34.95 

RESTORE 

List the unlistable! RESTORE by 
William Fletcher will allow you to 
make a LISTABLE, EXECUTABLE copy 
of any BASIC program. RESTORE is 
extremely user-friendly and the sim- 
plicity of operation is astounding. 
RESTORE is a compiled program and 
executes at machine language 
speed. Utilizing the graphics and 
sound capability of the Atari, RE- 
STORE is not only an indispensible 
programmer's tool, but is fun to use. 
If you have two disk drives RESTORE 
will automatically seek out relocated 
directories and give you the option 
to either restore all BASIC programs 
on the disk or make a copy of the 
disk putting the directory in its nor- 
mal location. Requires 48K RAM and 
one or more disk drive. 

$27.95 

PROGRAMMIN' STUFF — $26.95 
VARICOMMANDER — $29.95 
PROGRAMMIN' STUFF/VARI- 

COMMANDER PACKAGE — 

$45.95 
WORDPOWER — $27.95 
BIOGRAPH — $24.95 



PMI, P.O. Box 2895. 2500 Lee Road. Suite 210, Winter Parl(, FL 32790-2895 

a SWORD POINT n KARMIC CAVERNS D WAMPYRS TOMB 

D PROGRAMMIN- STUFF D T.I.P.S. D BIOGRAPH Q VARICOMMANDER D RESTORE D ERG 

D COMCON n VARICOMMANDER and PROGRAMMIN' STUFF PACKAGE Q WORDPOWER 

Total $ , plus $3.00 postage & handling (Florida residents add 5% sales tax) 

n CHECK (allow 3 weeks for personal checks to clear) D MONEY ORDER 
□ C.O.D. (add an additional $2.00 for C.O.D. orders) 



NAME (print) . 
Address . 
City- 



«EM5'S?g^!!Mi;3lllli 
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AATARI 



ATARI is a trademark of ATARI, INC 



:>^'" 



ATARI 800XL Call 

Atari 1 050 Disk Drive Call 

Atari 1010 Recorder 77.00 

Atari 1027 Printer Call 

Atari 850 Interface Call 

MOSAIC 

64K Ram/400 149.00 

64K Ram + Cable Kit/400/800 169.00 

48K Ram Kit 94.00 

16/32 Expander 64.95 

32K Ram 77.95 

Mosaic Adaptor 49.95 

Memory Expansion for Atari 600XL . . Call 



DISK DRIVES 

Percom 

Irak Call 

Rana For 

Indus Gt . . Prices 



NEW 

RS232 Modem 
Adaptor (Tlirough serial 
port) 39.95 

Koala Touch Tablet 
Cart or Disk... 69.95 

MONITORS 

We carry a full line 
of AMDEK and USI 
Monitors. 



LET YOUR ATARI IMPROVE 
YOUR LIFE AND YOUR MIND 
NEW - THE STIMUTECH SUBLIMrNAL PROGRAM 
With the Expando-Vision Interface the Atari 
Computer user can now work on Improving his or 
her personal environment during normal television 
viewing with a proven psychological technique 
that was banned by the F.C.C. 
Buy the Expando-Vision Interface for $99 and get 
the Rom Cart of your choice for FreeHI 

Rom Carts are available for: 
Weight Control Drinking Control 

Study Habits Smoking Control 

Stress Control Career Success 

Sexual Confidence 
Additional Rom Carts $29.95 eacti 



3RD Party Printer Interfaces 

Interfast I 139.00 

Apeface w/cable Included 69.95 

PRINTERS 

SUPER SPECIAL - Prowriter Package 

with Apeface or Interfast I Call 

Axiom AT-1 00 229.00 

Axiom AT-550 329.00 



ATARI 

Programming 2 & 3 - T ... . 23.95 
Conversational Lang. - T . . . 44.95 
Music Composer- Cart . . .32.95 
My First Alphabet - D .... 26.95 

Touch Typing - T 19.95 

Home Filing Mgr. - D 37.95 

Mailing List -T 19.95 

Caverns of Mars - D 28.95 

Computer Chess - Cart . . . 26.95 
Missile Command - Cart . . . 26.95 
Super Breakout - Cart .... 26.95 

Star Raiders - Cart 32.95 

Assembly Editor - Cart .... 46 95 

Basic -Cart 41.95 

Macroassembler - D 67.95 

Pilot (Home Pkg.)- Cart . . ..58 95 
invitation to Program IT... 19,95 

Speed Reading - T 55.95 

Basketball - Cart 26.95 

Graph-it -T 15.95 

Juggles House - D/T 22.95 

Pilot (Educator) - Cart .... 97.95 

Video Easel - Cart 26.95 

Defender - Cart 32.95 

Galaxian - Cart 32 95 

Qix - Cart 32.95 

Dig Dug - Cart 32.95 

ET - Can 37.95 

Timewise - D 23.95 

Alariwriter - Cart 74.95 

Donkey Kong - Cart 37.95 

Ms. Pac-Man - Cart 39.95 

Tennis - Cart 35.95 

Eastern Front - Cart 32.95 

Donkey Kong Jr. - Cart . . . 39,95 

Pengo - Cart 35.95 

Logo - Cart 79.95 

Robitron - Cart 35.96 

Pole Position -Cart 39.95 

Microsoft Basic M - C 67.95 

Paint - D 33.95 

Caverns of Mars - Cart .... 32.95 

Joust - Cart 39.95 

Visicalc - D 159.95 

THORN 

War Games - Cart 27,95 

Hockey - Cart 27,95 

Soccer - Cart 30,95 

Submarine 

Commander - Cart . . . 30.95 

SIERRA ON-LINE 

Homeword - D Call 

Dark Crystal - D 27.95 

Frogger - D/T 23,95 

Quest For Tires -D .... 23,95 

Ultima I -D 23.95 

Ultima II -D 41.94 

Wizard/Princess - D .... 22.95 



SPINNAKER 

Up For Grabs - Cart 27.95 

Cosmic Life - Cart 23,95 

Pacemaker - Cart/Disk .... 23.95 

Alphabet Zoo - Cart 23.95 

Fraction Fever- Cart 23.95 

Kids on Keys - Cart 23.95 

Delta Drawing - Cart 27.95 

Story Machine - Disk 23.95 

Rhymes & Riddles - D .... 20.95 

Amazing Things - D 27,95 

Hey Diddle Diddle - D .... 20,95 
Snooper Troops 1 or 2 - D .. 30,95 

Trains - D 27,95 

Aerobics - D 30,95 

SIRIUS 

Bandits -D 23,95 

Way Out - 27,95 

Repton - D 27,95 

Twerps - D 23.95 

Blade of Blackpoole ■ D . . 27.95 

Type Attack - D 27.95 

Beer Run - D 23.95 

Critical Mass - D 27.95 

Wavy Navy - D 23.95 

GAMESTAR 

Baja Buggies -D/T 22.95 

Starleague 

Baseball - D/T 22.95 

Starbowl Football D/T . . . 22 95 



SEGA 

Buck Rogers - Cart .... 27.95 

Star Trek- Cart 27,96 

Congo Bongo- Cart .... 27,95 

Tac Scan- Cart 27 95 

EPYX 

Gateway To Apshai - Cart 27,95 

Pitstop - Cart 27,95 

Lunar Outpost - Cart 27,95 

Swat Rescue - Cart 27,95 

Silicon Warrior - Cart .... 27,95 
Fun With Music - Cart .... 27,95 

Jumpman Jr, - Cart 27.95 

Dragonriders of Pern - D/C 27.95 
Temple of Apshai - D/C . . . 27.95 
Hellfire Warrior- D/C ....20.95 
Fun With Art -Carl 27.95 

INFOCOM 

Deadline - D 34.95 

Witness - D 34.95 

Zork I. II. Ill - D 27 95 

Starcross - D 27.95 

Planetfall - D 34.95 

Suspended - D 34.95 

Enchanter - D 34.95 

Infidel- D 34,95 

Hundreds of items 
available for the ATARI 
. . . please call. 



LJK 

Letter Perfect - D 74.95 

Data Perfect - D 74.95 

Spell Perfect - D 64,95 

BRODERBUND 

AE - D 23,95 

Arcade Machine - D .... 41,95 

Bank SI, Writer - D 49,95 

Lode Runner- D 23.95 

Drol - D 23.95 

Spare Change - D 23.95 

Choplifter-D 23,95 

DATA SOFT 

Money Wizard - D 49,95 

Letter Wizard - D 49,95 

Spell Wizard - D 34,95 

Genesis- D/T 20,95 

Heathcliff-D/T 20,95 

Pooyan - D/T 20,95 

Zaxxon - D/T 27,95 

Micropainter - D 23,95 

SYNAPSE 

Blue Max- D/T 23,95 

Dimension X - D/T 23,95 

Drelbs - D/T 23,95 

Encounter - D/T 23 95 

Necromancer - D/T .... 23.95 

Quasimoto - D/T 23.95 

Rainbow Walker- D/T .. . 23.95 

Shamus Case II - D/T . . . 23.96 

Zeppelin - D/T 23.95 

N.Y.C. - D/T 23.95 



FIRST STAR 

Bristles - D/T 20.95 

Flip Flop - D/T 20.95 

Astro Chase - D 20.95 

Boulder Dash - D/T .... 20.95 

STRATEGIC SIMULATIONS 

Carrier Force - D 41 ,95 

Combat Leader - D/T . . . 27.95 
Battle For Normandy 

-D/T 27.95 

Eagles - D/T 27,95 

PARKER BROS. 

Astrochase - Cart 34,95 

Frogger - Cart 34.95 

O'Bert - Cart 34.95 

Popeye - Cart 34.95 



€,onipu t(/lbiLLtu 



TM 



To Order Call Toll Free 



For Technical Info, Order 
Inquiries, or for Wise. Orders ■ 



800-558-0003 414-351-2007 

NO SURCHARGE FOR MASTERCARD OR VISA 



COMPUTABILITY 

P.O. Box 17882 

Milwaukee. Wl 53217 



^ 



ORDER LINES OPEN 
Mon-Fri 11 AM - 7 PM GST 
Sat 12 PM -5 PM GST 



ORDERING INFORMATION For fast delivery send cashier's check, money order or direct bank transfers. 
Personal and company checks allow 2 weeks to clear. Charges for GOD are $3.00. School Purchase 
Orders welcome. In CONTINENTAL USA, include $3.00 shipping per software order. Include 3% shipping 
on all Hardware orders, minimum $3.00. Mastercard & Visa please include card ** and expiration date. Wl 
residents please add 5% sales tax. HI. AK. FPO, APO, Canadian orders - add 5% shipping, minimum $5.00. 
All other foreign orders, please add 1 5% shipping, minimum $1 0.00. All goods are new and include factory 
warranty. Due to our low prices, all sales are final. All defective returns must have a return authorization 
number. Please call 414-351-2007 to obtain an RA# or your return will NOT be accepted for replacement 
or repair. Prices and availability are subject to change without notice. 



MISCELLANEOUS 

Castle-Wolfenstein - D . . 20.95 

Home Accountant - D . . . 52.95 

Master Type - D/Cart . . . 27.95 

Spelunker-D 27.95 

Flight Simulator II - D ... 37.95 

Zombies - D/T 23.95 

Mr. Robot - D 23.95 

River Raid -Cart 31.95 

Diskey- D 34.95 

Chatterbee - D 27,95 

Rally Speedway - Cart . . . 34.95 

Ultima 111 - D 41,95 

Miner 2049'er- Cart .... 34.95 

Scraper Caper - Cart . . . 34.95 

Basic XL - Cart 74,95 

Monkey Wrench II - Cart . 49,95 

Omnimon 82,95 

Scraper Caper- Cart . . . 34.95 

BOOKS 

Compute's First 

Bk/Games 12.95 

Inside Atari DOS 19.95 

Mapping the Atari 14.95 

Machine Language/ 

Beginners 14.95 

Your Atari Computer . . . 16.95 

The Atari Assembler .... 12.95 

Visicalc Book-Atari .... 14.95 

ACCESSORIES 

WICO Joystick Call 

Flip -n" File Trunks 20.95 

Flip'n' File Cart 20.95 

Joysensor 24.95 

Elephant Disks 

{Box of 10) 20.00 

WICO Trakball 37.95 

KRAFT Joystick 15.95 



D - Disk 
Cart- 



T - Cassette 
Cartridge 
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INDEX TO ADVERTISERS 



READER 
SERVICE # 



ADVERTISER 



PAGE** 



READER 
SERVICE # 



ADVERTISER 



PAGE* 



156 Adventure International OBC 121 

116 Allen Group 24 145 

127 Allen Macroware 41 115 

125 Alpha Systems 39 105 

120 ALOG Computing 33 113 

155 ANALOG Publishing 101, IBC 134 

109 Astra Systems 11 132 

154 Computability 103 128 

147 Computer Creations 93 104 

135 Computer Discount Sales 70 143 

133 Computer Palace 64 119 

140 Compu Ware 75 151 

118 Convologic 29 153 

144 Cosmic Computers 88 131 

124 Datamost 37 149 

101 Dennison/Elephant IFC 148 

114 Dorcett 21 129 

152 Draper Software 100 136 

146 Eastern House 93 102 

130 Eclipse Software 59 138 

141 El Comp Publishing 77 108 

117 Epyx 27 126 

1 50 Gardner Computing 99 112 

110 Happy Computing 14 106 

111 Hayden Publishing 18 123 

103 Infocom 4 142 

122 Interactive Software 35 137 

139 

This index is an additional service. While every effort is made 
and accurate listing, the publisher cannot be responsible for 



Lateral Software 35 

Lyco 90 

IVIach-lna 23 

Macrotronlcs 9 

Micca Enterprises 20 

IVIicroprose 67 

Mighty Byte/Spartan 62 

Miles Computing 43 

OSS Precision Software 7 

Overbyte 87 

Pace 32 

PC Gallery 99 

PMI 102 

Quality Software 61 

Ram 95 

RCE 94 

Rising Sun 56 

Sar-An 71 

Scholastic 2,3 

SIM 73 

Soft Sector 10 

Software Plus 40 

Southern Software 20 

Super Ware 9 

Telemetries 36 

Wedgewood Rental 87 

XLent Software 72 

Zlza Presents 74 

to provide a complete 
iruidvertent errors. 




From the editors of 
A.N.A.L.O.G. Computing 



.^-'-^i 



rfe- 



a^FILDE 



COMPENDIUM 



The best ATARI® Home Computer Programs from the first ten issues of A.N. A.L.O.G. Computing Magazine. 






a\ia» 



0\S* 



'^■M-riffFiT'i^'' 



iSi ATARI 




The ANALOG Compendium is available at selected book and computer stores, or you can order it direct. Send 
a checi< or money order for $1 4.95 + $2 shipping and handling to: ANALOG Compendium, P. O. Box 615, Holmes, 
PA 19043. 

Or you can order by phone with MasterCard or VISA. Call toll free: 1-800-345-8112 (in PA, call 
1-800-662-2444). For orders outside tiie U.S., add an additional $5 air mail, $2 surface. 
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SLIP INTO 

SOMETHING 

TURBO-CH^BGEfT 



p like the road-scorching, 

speedster in RALLY SPEEDWAY- 
— the game that turns your 
t ATARI into a full-blown, four- 

wheeled dennon! Take on our 
demanding course, or use the 
unique Construct-A-Track option to 
design your own. Push yourself to the 
limit for a better lap time, or get a 
friend in on the action for a one-on-one 
duel to the finish line — it's vour choice! , 






a asgta 



^, MAKE TRACKS TO 
5 YOUR DEALER TODAY! 

• ATARI 400/800/1200 CARTRIDGE 

' 053-0171 $49.95 

If your dealer doesn't have Rally Speedway in 
stock, phone 1-800-327-7172 with your order, or 
write us at Adventure International, P.O. Box 3435, 
: Longwood. FL 32750 for your FREE catalog. 

DEALER ORDERS WELCOME 

'■"TS?Pl'e'ffili5'6 ON RfeADER seRVICE CAm." 
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